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0000 0003 
0000 0002 
0000 0003 
0000 0004 
0000 0005 
0000 0006 
0000 | 0007 
0000 0008 
0000 0009 
0000 0030 
0000 0013 
0000 0042 
0000 | 0033 
0000 | 0034 
0000 | 0045 
0000 0046 
0000 0017 
0000 | 0013 
0000 0019 
0000 0020 
0000 0028 
0000 | 0022 
0000 0023 
0000 0024 
0000 | 0025 
0000 0026 
0000 0027 
0000 0028 
0000 0029 
0000 0030 
0000 0034 
0000 0032 
0000 0033 
0000 0034 
0000 0035 
0000 0036 
9000 0037 
0000 0038 
0000 0039. 
0000 0040 
0000 0043 
0000 0042 
0000 0043 
0000 | 0044 
0000 0045 
0000 0046 
0090 0047 
0000 0048 
0000 0049 
0000 0050 
0000 0053 
0000 38 90 47 0052 
0003 3E 03 0053 
0005 32 92 47 0054 


i ee ee ee 


he 


FPSIZ EQU 5 

LINLEN EQU 73 # CHRS IN LEGAL INPUT LINE 
FP423 EQU FPSIZ~2 

FPNIB EQU FP4§23%2 

DIGIT EQU FPNIB/2 

CR EQU 45Q CARRIAGE RETURN 

NULL EQU 0 NULL CHARACTER VALUE 

LF EQU 12Q LINE FRED 

ESC EQU 30 ESCAPE CHAR 

EOF EQU FY END OF FILE 

BELL EQU 7 BELL CHARACTER 

STESIZ  EQU 2+FPSIZ SYMBOL TABLE ELEMENT SIZE 
OPBASE EQU es 

FTYPE EQU A CONTROL STACK FOR ENTRY TYPE 
FORSZ EQU -FPSIZ#24242+4 'FOR' CONTROL STACK ENTRY SIZE 
GTYPE EQU 2 CONTROL STACK GOSUB ENTRY TYPE 
ETYPE EQU 0 CONTROL STACK UNDERFLOW TYPE, 
UMINU EQU 64Q UNARY MINUS 

% 

* STARTUP BASIC SYSTEM 

% 

START LXI SP,CMNDSP 
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SYSTEM GLOBAL EQUATES 


MVI ~—s_— A, 3 | 
STA NULLCT INITIALIZE NULL COUNT 


PAGE 


1 


PROCE 
ee 


0008 
0008. 
OQOE 
Oo44 
Q034 
0037 
OOJA 
004d 
0020 
0023 
0026 
0029 
002Cc 
002F 
002F 
O02F 
002F 
, O02F 

002F 
002F 
0032 
00248 
0036 
0039 
003¢ 
003D 
OO3F 
0042 
OO4u5 
0048 
OO4UB 
OOUER 
0054] 
0054 
09056 
0059 
0059 
005C 
O05F 
0062 
0062 
0062 
0062 
0065 
0068 
6068 
006D 
00790 
0073 
0076 
0079 
OC7C 
OO7F 
0082 
0085 
0088 
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Se 
Ci 
au 
2a 
CD 
22 
43 
Cb 
22 
23 
Cy 
Cb 
3A 


19 
OF 
07 
39 
20 
419 
07 
10 
a9 
07 
OD 
OF 
18 


& & 


0055 
0056 
0057 
0058 
0059 
0060 
006% 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
OO7d 
0072 
0073 
0074 
0075 
0076 
0077 


STO 


mee mm mh Me 


STAR4 


0078 © 


0079 
0080 
0084 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0085 
0090 
0094 


0092 


0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0104 
0202 
0303 
0304. 
0305 
0306 
04307 
0408 
0309 
0380 


ST2 


ST3 


STé 
ST4 


CMND4 


CMNDR 


CMND2 


STA 
CALL 
LXI 
LXI 
CALL 
SHLD 
EXT 
CALL 
SHLD 
LXI 
CALI. 
CALL 
LDA 
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SPEED 

INITS 

D,FAS FIRST ADDRESS MESSAGE 

H,MEMTO+%4 ONE LESS THAN LOWER BOUND 

GINT GET INTEGER GREATER THAN MEMTOP+4 
BOFA START. OF USER ASSIGNED MEMORY 
D,LAS 

GINT HL HAS 4 LESS THAN LOWER BOUND AGAIN 
MEMTOP END OF ASSIGNED MEMORY POINTER 
H, PLS "PROGRAM LOADED?" MESSAGE 

PRNT 

INLINE ; 

IBUF 


OPTIONAL ENTRY POINT FOR TAPE OR DISK ROUTINES 


ALLOWS DIRECT. PROGRAM INPUT FROM HIGH SPEED DEVICES 
SEE OPERATING INSTRUCTIONS FOR PROPER IMPLEMENTATION. 


CPI "NY 
JZ STd IF NO PROGRAM CLEAR AND INITIALIZE 
CPI ry! 
JNZ STO 
LHLD BOFA 
MOV A.M FIND END OF PROGRAM 
CPI EOF —_ 
JZ ST3 
CALL ADR 
JMP ST2 
SHLD EOFA 
CALL CCLEAR 
JMP STY 
CALL CSCR 
MVI A, 2*FPNIB 
STA INFES 

# INITIALIZE RANDOM NUMBER 
LXI D, FRAND 
LXI H,RANDS 
CALL VCOPY FRAND=RANDOM NUMBER SEED 

COMMAND PROCESSOR 

CALL CRLF2 
LXI H,RDYS PRINT READY MESSAGE 
CALL PRNT 
MVI A,a SET DIRECT INPUT FLAG 
STA DIRF 
LXI SP, CMNDSP 
CALL CRLF 
CALL INLINE GET INPUT LINE FROM OPERATOR 
CALL PP PRE=PROCESSOR IT 
ac CMND3 | 
CALL LINE LINE NUMBER..GO EDIT 
CALL CCLEAR 
JMP CMND2 
CALL CMND4 


CMND3 


PAGE 


,2 


PROCE 
2% 


0088 
008E 
0093 
0094 
0097 
0099 
0098 
009E 
OOA3 
OOA4 
00A7 
O0A9 
OOAA 
OOAD 
00B0 
0030 
0033 
00B6 
0039 
OOBC 
O0BF 

00C2 
00C5 
00C5 
00C6 
00C9 
OOCA 
00CD 
O0CE 
00D4 
O0D4 
00D7 
OODA 
00DB 
OODE 
O0F3 
OOEL 
O0E4 
00E7 
0058 
00E9 
OOEA 
OOEC 
OOED 
OOEE 
oora 
OOF4 
00F5 
00F8 


00F9 © 


OOFA 
OOrB 
OOFC 
0O0FL 
OOrE 
0103 
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95 
35 


a7 
Ov 


00 


48 
Ov 


0484 
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JMP CMNDR . 

0142 CMND4 EXT H,IBUf POINT TO COMMAND OR STATEMENT 
0343 SHLD TXA 

02344 CALL GC 

0345 ANI 240Q | 

0336 CPI 240Q CHECK FOR COMMAND 
0347 LXI D,CMNDD : 
0198 JZ ISTAS PROCESS COMMAND 
0149 CALL — ISTAT PROCESS STATEMENT (IF ALLOWED) 
0320 CALL GCI 

0424 CPI CR 

0122 RZ 

014123 E4 LXI B,'BS? 

0424 JMP ERROR 

0425 ® ERROR MESSAGE PRINT OUT 

0426 E3 LXI B,'BAt 

0247 | JMP ERROR 

0428 Eu. LXI B,'CS! 

0329 JMP ERROR 

0230 E5 LXI B,'OB! 

0434 JMP ERROR 

0132 £6 : JET B,'DM! 

0433 # | 

0334 ERROR PUSH B 

0335 CALL CRLF 

0136 POP B 

0137 CALL CHOUT 

01438 MOV B,C 

0139 CALL CHOUT 

0140 LXI . H,ERS 

0444 ERM’ CALL PRNT 

0442. LDA DIRF © 

0443 ORA A 

Oguy JNZ CMND4 

0445 LXI H,INS 

0446 CALL PRNT 

0447 # FIND LINE NUMBER 

0448 LHLD BOFA 

O449 ERM2 — MOV B,H 

0150 MOV C1 

04514 MOV E,M 

01452 MVIL D,O 

0453 DAD D 

0454 XCHG 

0155 LXI ' H,TXA 

0156 CALL DCMP 

0457 XCHG 

04158 JC ERM2 

0159 INX B 

0360 LDAX B 

0464 MOV L,A 

0462 INX B 

0163 LDAX B 

0164 MOV H,A | 

0165 LXI D, IBUF USE IBUF TO ACCUMULATE THE: LINE NUMBER STRING 
0466 CALL CNS 
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0304 
0406 
0207 
O230A 
040D 
0340 
0230 
0330 
0440 


0333 


01434 
0185 
03138 
01449 
OZ8A 
034D 
OIdge 
0124 
0122 
0325 
~~ 0323 
0429 
(032C 
042F 
O0142F 
0332 
0434 
0435 
0338 
0335 
O4A3E 
0340 
0343 
O444 
0944 
0345 
0448 
O34B 
OLE 
0350 
0453 
0355 
0156 
0359 
Q35¢ 
O4a5C 
O45D 
0160 
0462 
0363 
0364 
0467 
016A 
046D 
0470 
0378 
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CHECK FOR EMPTY FILE 
CHECK IF APPENDING LINE AT END 


GET INPUT LINE NUMBER 
COMPARE WITH FILE LINE NUMBER 


LESS THAN 
EQUAL 

LENGTH OF LINE: 
JUMP FORWARD 


DON'T APPEND NULL LINE 


CHECK FOR ROOM IN FILE 
PLACE LINE IN FILE 


OLD LINE COUNT 
INSERT LINE POINTER 
NEW LINE COUNT 


JMP IF NEW LINE # NOT = OLD LINE NUMBER 


TEST IF SHOULD DELETE NULL LINE 


LINE LENGTHS EQUAL 


NEW OR LARGER LINE 


8% 
SSOR TECHNOLOGY BASIC 5 
COPYRIGHT 8976 ## 
3E OD 0367. MVI A,CR 
$2 0168 STAX D 
24 D3 48 0269 LXI H, IBUF 
CD 4E OD 0470 CALL PRNTCR 
C3 62 00 0474 JMP CMND4 
0172 # 
0373 * LINE EDITOR 
0174 # 
2A 50 39 0375 LINE LHLD BOFA 
TE 0176 FIN MOV A,M 
3D 0377 DCR A 
CA 2F 04 0178 JZ APP 
EB 0379 XCHG 
43 0180 INX D 
2A D4 18 0481 LHLD IBLN 
EB 0182 XCHG 
CD 35 OD 01483 CALL DCMP 
2B 0484 DCX Ho 
DA 4 Os 01485 JC INSR 
CA uu O8 0486 JZ INSR 
TE 0187 MOV AJM 
CD Ca 03 0488 CALL ADR 
C3 33 03 0189 JMP FIN 
0190 # APPEND LINE AT END CASE 
3A DO 38 0494 APP LDA IBCNT 
FE Ou 0192 CPT uy 
C8 . 0193 RZ 
CD C6 O04 0194 CALL FULL 
2A YE 49 0395 LHLD EOFA 
CD 98 03 0196 CALL IMOV 
36 04 0397 MVI M, EOF 
22 4E 49 0398 SHLL EOFA 
c 0199 RET | 
0200 # INSERT LINE IN FILE CASE 
u6 0204 INSR MOV BM 
22 3D 439 0202 SHLD INSA 
3A DO 38 0203 LDA IBCNT 
DA 5C 04 0204 JC LT 
D6 O04 0205 SUI u 
CA 55 03 0206 By LTA 
C6 Ou 0207 ADI 4 
90 0208 LTa SUB B 
CA 8F 03 0209 JZ LING 
DA 7B 04 0240 | Jc GT 
| 025d * EXPAND FILE FOR 
47 0242 LT MOV BA 
3A DO a8 0233 LDA IBCNT 
FE 04 0244 CPI 
C8 0285 RZ 
78 0246 MOV A,B 
CD C6 0a 0247 CALL FULL 
2A 32D 49 0238 LHLD INSA 
CD B5 03 0239 CALL NMOV 
2A “UE 49 0220 LHLD EOFA 
EB 0224 XCHG 
22 46 49, 0222 SHLD EOFA 


DON'T INSERT NULL LINE 
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0374 03 0223 INX B 
0375 CD AA 0a 022% : CALL RMOV 
0378 C3 8F 04 0225 JMP LIN’ 
0478 0226 ® CONTRACT FILE FOR SMALLER LINE 
017B 27 0227 GT CMA 
047C 3¢ 0228 INR A 
037D CD Cs 08 0229 CALL ADR 
0380 CD BS 04 0230 CALL NMOV 
0483 EB 0233 XCHG 
0184 2A 3D 49 0232 | LHLD INSA 
0487 Ch OF 04. 0233 CNZ LMOV 
(018A 36 04 0234 MVI M, EOF 
018C 22 4E 49 0235 SHLD EOFA 
048F 0236 * INSERT CURRENT LINE INTO FILE 
018F 2A 3D 49 0237 LIN LHLD INSA 
-0192 3A DO 38 0238 LDA IBCNT 
0195 FE 04 0239 7 CPI r 
0197 C8 0240 | RZ : 
0198 0243 * INSERT CURRENT LINE AT ADDR HL 
0393 48 DO 48 0242 IMOV LXI D, IBCNT 
039B aA 0243 | LDAX D 
019C uF O24u | MOV C,A 
039D 06 00 0245 MVI B,0 
0197 0246 * COPY BLOCK FROM BEGINNING 
0197 0247 * HL IS. DESTIN ADDR, DE IS SOURCE ADDR, BC IS COUNT 
O19F 3A 0248 LMOV LDAX D 
O4A0 77 0249 | MOV M,A 
O1AS a3 0250 INX D 
O3A2 23 0254 INX H 
03A3 OB 0252 DCX B 
OSA4 78 0253 MOV A,B 
O4A5 Ba 0254 7 ORA C 
0346 C2 9F Of 0255 INZ LMOV 
0449 C9 0256 RET 
OFAA 0257 * COPY BLOCK STARTING AT END 7 
O4AA 0258 * HL IS DESTIN ADDR,DE IS SOURCE ADDR, BC IS COUNT 
OFAA JA ) 0259 RMOV LDAX D 
OJAB 77 0260 MOV M,A 
OFAC 2B 0263 DCX H 
OAD aB 0262 ~ DCX D 
“OWE OB; 0263 | DCX B 
O1AP 78 0264 | MOV A,B 
0430 Ba 0265 — ORA C 
04B4 C2 AA 09 0266 : JNZ RMOV 
0134 Cg 0267 RET | | 
04B5 0268 # COMPUTE FILE MOVE COUNT | 
04B5 0269 ® BC GETS (EOFA) - (HL), RET Z SET MEANS ZERO COUNT 
01B5 3A 4E ag 0270 NMOV LDA EOFA 
01B8 95 | 0274 SUB L 
0139 4F 0272 MOV C,A 
O1BA 3A 4F ag 0273 LDA EOFA+4 
04BD 9C 0274 SBB H 
O4BE 47 0275 MOV B,A 
O1BF Ba 0276 ORA c 
01C0 cg 0277 RET 


01C4 0278 * ADD A TO HL 


PROCE 
Bi 


04C4 
01C2 
01C3 
04Cu 
01C5 
03C6 
-04C6 
O4C6 
03C9 
014CC 
O4CD 
01D0 
04D3 
04D6 
0407 
014D7 
O3D7 
04D7 
OMDA 
OaDC 
O1DF 
O1DE 
O8E2 
0353 
0456 
O1E7 
OMEA 
O1EB 
OEC 
O1EF 
O3FO 
O1F3 
O1F6 
01F9 
O4FC 
O4FE 
0203 
0204 
0207 
0208 
0208 
0208 
0205 
020F 
0282 
0215 
0235 
0238 
023A 
02aD 
0220 
0223 
0226 
0227 
0228 
0229 
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0279 
0280 
0284 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0294 
0292 
0293 
0294 
0295 
0296 


(0297 


0298 
0299 
0300 
0303 
0302 
0303 
0304 
0305 
0306 


ADR ADD 
MOV 
RNC 
INR 
RET 
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EMERYVILLE, CALIF. 94608 
ie . 
L,A 


H 


# CHECK FOR FILE OVERFLOW, LEAVES NEW EOFA IN DE 


* A HAS INCREASE IN SIZE 
FULL LHLD EOFA 
CALL ADR 
XCHG ' 
LXI .H,MEMTOP 
CALL DCMP 
JNC E8 
RET 
& a 
* COMMANDS 
2 
CSCR LHLD BOFA 
MVI M, EOF 
SHLD EOFA 
* "CLEAR" ; 
CCLEAR LHLD EOFA CLEAR FROM EOFA TO MEMTOP 
INX H 
SHLD MATA 
XCHG 
LXI H,MEMTOP END OF ASSIGNED MEMORY 
CCLR4& XRA A 
STAX D 
CALL DCMP 
INX D 
JNZ CCLR4 
LHLD MEMTOP 
SHLD STA 
LXI H, CSTKL+CSTKSZ=% 
MVI M,ETYPE 
SHLD CSTKA 
LXI H, ASTKL+ASTKSZ+F PSIZ =a 
SHLD ASTKA 
RET 
2 "NULL" 
CNULL CALL INTGER 
JC E3 NO ARGUMENT SUPPLIED 
MOV A,L 
STA NULLCT 
JMP CMND@ 
& "LIST" 
CLIST CALL GC. 
CPI CR 
LXI D,0 
JZ CLO JUMP IF NO ARG SUPPLIED 
CALL INTGER ERROR DEFAULT IS LIST 
CLO LHLD BOFA 
CLé MOV A,M 
DCR A 
RZ 
INX H . 


PAGE 


PROCE 
oe 


022A 
022D 
022E 
0234 
0234 
0234 
0235 
0238 
023, 
023C 
0237 
0242 
0243 
O2uu 
0247 
O24A 
024d 
0250 
0251 
0252 
0255 
0255 
0258 
025B 
025C 
025D 
0260 
0264 
0262 
0263 
0266 
0269 
026A 
026D 
0270 
0270 
0270 
0270 
0273 
0276 
0279 
027C 
027F 
O27F 
0282 
0283 
0286 
0288 
028B 
0288 
0294 
0293 
O29u 
0295 
0297 
0298 
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CD 35 
DA 3B 
CA 3B 
Cb Ca 
C3 26 
$4 D3 


CD O09 ¢ 


24 D3 «| 


CD iE 
CD 26 
CD 1c 


C3 26 


CD DF 
2A 50 


CA 62 


22 95 
22 Ba 


32 94 
CD 4c 


CD 26 
Cu TF 
CD 2E 
v2 70 
C3 62 


CD 02 


F2 9C 
FE 94 
D2 AA 
44 £0 
CD OA 
E65 aF 


26 00 


CD 40 


OD 
02 
02 


03 


OD 


82 
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POINT TO COUNT CHAR AGAIN 


oe 


AREA TO UNPREPROCESS TO 


CHSCK FOR NULL PROGRAM 


POINTER FOR 'READ' STATEMENT 
CLEAR DIRECT FLAG AND FALL THROUGH TO DRIVER 


INTERPRET CURRENT STATEMENT 

TEST FOR JUNK ON END 

CONTINUE IF NOT AT END OF PROGRAM 
EXECUTE END STATEMENT 


GET FIRST NON BLANK 


MUST BE LET IF NOT RW 
IS IT AN INITIAL RW 


STATEMENT DISPATCH TABLE BASE 
ADVANCE TEXT POINTER 


MULTIPLY BY TWO PREPARING FOR TABLE LOOKUP 


0335 CALL DCMP 
0336 DCX H 

0337 Rie CL2 
0338 JZ CL2. 
0339 ® INCREMENT TO NEXT LINE 
0340 MOV A,M 
0343 CALL ADR 
0342 JMP CLa 
0343 CL2 PUSH De. 
0344 LXI ‘D,IBUF 
0345 CALL UPPL 
0346 INX H 

0347 PUSH H 

0348 LXI H, IBUF 
0349 CALL PRNTCR 
0350 CALL PCHECK 
0354 CALL CRLF 
0352 POP H 

0353 POP D 

0354 JMP CLA 
0355 * "RUNt 

0356 CRUN CALL CCLEAR 
0357 LHLD BOFA 
0358 MOV A,M 
0359 DCR A 

0360 i END 
0363 INX H 

0362 INX H 

0363 INX H 

0364 SHLD TXA 
0365 SHLD —-—s&RT XA 
0366 XRA A 

0367 STA DIRF 
0368 CALL CRLF 
0369 # 

0370 * INTERPRETER DRIVER 
0374 * 

0372 ILOOP CALL PCHECK 
0373 CALL ISTAT 
0374 > CALL JOE 
0375 JNC ILOOP 
0376 JMP END 
0377 * INTERPRET STATEMENT LOCATED BY TXA 
0378 ISTAT CALL GC. 
0379  ORA A 

0380 JP LET 
0384 CPI IRWLIM 
0382 JNC EA 
0383 LXI D, STATD 
0384 ISTA CALL GCI 
0385 ANI 370 
0386 RLC : 

0387 MOV L,A 
0338 MVI H,0 
0389 DAD D 

0390 CALL LHLI 


PAGE 
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029B EQ 0293 PCHL BRANCH TO STATEMENT OR COMMAND 
029C 0392 * 
029C 0393 * STATEMENTS 
029C 0394 # 
029C 0395 * "LETS 
029C CD EA OB 0396 LET CALL VAR CHECK FOR VARAIABLE 
029F DA AA 00 0397 ac EA 
O2A2 E5 0398 PUSH H SAVE VALUE ADDRESS 
02A3 06 F5 0399 MVI B, EQRW 
02A5 CD FA OC 0400 CALL EATC 
02A8 CD D7 05 Ou04 CALL EXPRB , 
O2AB D4 0402 POP D DESTINATION ADDRESS 
O2AC CD BE OC 0403 CALL POPAG COPY EXPR VALUE TO VARIABLE 
O2AF C9 Ouoy RET 
0280 0405 * "FOR" 
02B0 CD 63 OD 0406 SFOR CALL DIRT 
02B2 Cb EA OB 0407 CALL VAR CONTROL VARIABLE 
02B46 DA AA 00 0408 Jc E4 
0239 E5 0409 PUSH H CONTROL VARIABLE VALUE ADDRESS 
O2BA 06 FS 0410 MVI B, EQRW 
O2BC CD FA 0C 0433 CALL EATC 
O2BF CD D7 05 0442 CALL EXPRB INITIAL VALUE 
02C2 Da 0443 POP D VARIABLE VALUE ADDRESS 
0203 D5 o4a4 PUSH D SAVE 
02C4 CD BE OC 0445 CALL POPAA SET INITIAL VALUE 
02C7 06 9E 0446 MVI B, TORW RW FOR 'TO! 
02C9 CD FA OC 0447 CALL EATC 
02CC CD D7 05 0448 CALL EXPRB LIMIT VALUE COMPUTATION 
—Q2CF CD 02 OD 0449 CALL GC CHECK NEXT CHARACTER FOR POSSIBLE STEP EXPRESION 
02D2 FE 9F 0420 CPI STEPRW 
0204 CA EO 02 0424 yA FOR 
0207 : 0422 # USE STEP OF 
O2D7 a4 87 07 0423 LXI D, FPONE 
O2DA CD A8 OC 0424 CALL PSHA 
02D C3 E6 02 0425 UMP FOR2 
0250 0426 # COMPUTE STEP VALUE 
O2E0 CD OA OD 0427 FORA CALL GCI EAT THE STEP RW 
02E3 CD D7 05 0428 CALL EXPRB THE STEP VALUE 
(0256 0429 * HERE THE STEP AND LIMIT ARE ON ARG STACK 
0266 13 FE FF 0430 FOR2 LXI D,-2 PREPARE TO ALLOCATE 2 BYTES ON CONTROL STACK 
—02E9 CD CD OC 0433 CALL PSHCS RETURNS ADDRESS OF THOSE 2 BYTES IN HL 
O2EC EB 0432 XCHG | | | 
O2ED CD 2E OC 0433 CALL JOE TEST FOR JUNK ON END 
02FO DA B6 00 0434 JC > Eu NO "FOR" STATEMENT AT END OF PROGRAM 
O2F3 EB. 0435 XCHG DE HAS LOOP TEXT ADDR, HL HAS CONTROL STACK ADDR 
" O2F4 72° 0436 MOV M, D HIGH ORDER TEXT ADDRESS BYTE 
0275 2B 0437 DCX H | 
02F6 73 0438 MOV M,E ° LOW ORDER TEXT ADDRESS BYTE 
O2F7 14 FB FF 0439 Ux D,-FPSIZ ALLOCATE SPACE FOR LIMIT ON CONTROL STACK 
O2FA CD CD OC 0440 CALL PSHCS 
O2FD E5 Oun4 PUSH H . ADDR ON CONTROL STACK FOR LIMIT 
O2FE 3a FB FF Ouu2 LXI D,-FPSIZ ALLOCATE SPACE FOR STEP ON CONTROL STACK 
0303 CD CD OC 0443 CALL PSHCS 
0304 CD BD OC Ou CALL POPAS: COPY STEP VALUE TO CONTROL STACK 
(0307 Da O4uLS POP D CONTROL STACK ADDR FOR LIMIT VALUE 
0308 CD BE OC 0446 CALL POPA LIMIT VALUE TO CONTROL STACK 
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030B 418 FD FF O447 LXI D,<3 ALOCATE SPACE FOR TEXT ADDRESS AND CS ENTRY 
O30E CD CD OC 0448 CALL PSHCS | 
0244 D4 0449 POP D CONTROL VARIABLE ADDRESS 
0312 72 0450 MOV M,D HIGH ORDER BYTE OF CONTROL VARIABLE ADDRESS 
0323 2B O454 DCX H 
‘0394 73 0452 MOV M,E LOW ORDER BYTE OF CONTROL VARIABLE ADDRESS 
0345 2B 0453 DCX H 
9316 36 04 O4s5y MVI M,FTYPE SET CONTROL STACK ENTRY TYPE FOR ‘FOR! 
0338 C3 7C 03 O455 JMP NEXTS GO FINISH OFF CAREFULLY 
0348 0456 * "NEXT® | | 
0343B CD 63 OD O457 NEXT CALL DIRT 
O33E 2A BS 48 0458 LHLD CSTKA CONTROL STACK ADDRESS 
0323 7E 0459 MOV A,M STACK ENTRY TYPE BYTE 
0322 3D 0460 DCR A MUST BE FOR TYPE ELSE ERROR 
0323 C2 B46 00 0463 JNZ E4 IMPROPER NESTING ERROR 
0326 23 0462 INX H CONTROL STACK POINTER TO CONTROL VARIABLE ADDRESS 
0327 ES - 0463 PUSH H 
0328 CD EA OB 0464 CALL VAR CHECK VARIABLE, IN CASE USER WANTS 
032B DA 37 03 O465 JC NEXTS SKIP CHECK IF VAR NOT THERE 
032E EB O466 | XCHG 
032F £3 O467 POP H CONTROL VARIABLE ADDRESS 
O3320 ES 0468 PUSH H : SAVE IT AGAIN 
0234 CD 35 OD 0469 CALL DCMP 
0234 C2 B& 00 0470 JNZ E4 IMPROPER NESTING IF NOT THE SAME 
0337 Fa O474 NEXT# POP H CONTROL VARIABLE ADDRESS 
0328 E5 O472 PUSH H 
0239 £5 0473 PUSH H 
O323A &4 06 00 O474 LXI D,FPSIZ+2-41 COMPUTE ADDRESS TO STEP VALUE 
0330 49 0475 DAD D 
O23E 53 0476 XTHL : NOW ADDRESS TO VAR IN HL 
033F CD 4O OD 0477 CALL LHLI VARIABLE ADDRESS 
O342 44 0478 MOV B,H COPY VAR ADDRESS TO BC. 
0343 4D - 0479 MOV 65h 
Q34u D4 0480 POP. D STEP VALUE ADDRESS 
0345 D5 0483 PUSH D 
0346 Cp C8 43 0482 CALL FADD DO INCREMENT 
QO3ug F4 0433 POP H STEP VALUE 
OZ4A 2B O48y DCX H POXNT TO SIGN OF STEP VALUE 
0243 7E | QU85 MOV A,M SIGN 0=POS, 4=NEG 
034C 43 06 00 0486 “LXI D,FPSIZ+5 
O34F 49 0487 DAD D PUTS LIMIT ADDRESS IN HL 
0350 EB 0488 XCHG 
0351 E4 0489 POP. H VARIABLE ADDRESS 
0352 Cp 40 OD 0490 CALL LHLI GET ADDRESS 
0355 DB5 0494 PUSH D SAVE CONTROL STACK POINTER TO GET TEXT ADDRESS - 
0356 B7 0492 ORA A SE") CONDITIONS BASED ON SIGN OF STEP VALUE 
0357 CA 5B 03 0493 | JZ NEXT2 REYERSE TEST ON NEGATIVE STEP VALUE 
O25A EB O4g4 XCHG 
035B 44 | 0495 NEXT2 MOV B,H SEY UP ARGS FOR COMPARE 
035C 4D 0496 MOV C,L 
O35D CD 64 09 0497 ~~ CALL RELOP TEST <= 
0260 34 0498 POP D TEXT ADDRESS 
0264 FA 6F Q3 0499 JM NEXT3 STILL SMALLER? 
0364 CA 45F 03 | 0500 JZ NEXT3 ' JUNP IF WANT TO CONTINUE LOOP 
03457 0504 * TERMINATE LOOP 


0267 213 03 00 0502 LXI H, 3 REHOVE CSTACK FNTRY 
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036A 
026B 
0365 
036F 
0370 
0274 
0374 
0374 
0375 
0373 
0379 
037C 
O37F 
0380 
0384 
0383 
03383 
0386 
0389 
038A 
0388 
0385 
038F 
0392 
0392 
0394 
0397 
039A 
039D 
03A0 
03A0 
O3A3 
O3Au 
03AT7 
O3AA 
O3AB 
O3AE 
O3AF 
03B0 
0334 
03B4 
03B4u 
0337 
03BA 
02BD 
O3BE 
03C4 
03C4u 
03C5 
03C8 
03C9 


O3CA. 


03CB 
03CC 
03CD 


O3CE « 


B5 418 


40 OD 


2E OC 


95 9 
T0 02 


% % 


0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0534 
0542 
0533 
0544 
0545 
0546 
0547 
0538 
0519 
0520 
0523 
0522 
0523 
0524 
0525 
0526 
0527 
0528 
0529 


- 0530 


0534 
0532 
0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0544 
0542 
0543 
0544 
0545 
0546 
O547 
0548 
0549 
0550 
0553 
0552 
0553 
0554 
0555 


_ 0556 


0557 
0558 
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DAD D 
SHLD CSTKA 
RET 
NEXT3 INX D TEXT ADDRESS 
XCHG 
CALL LHLI GET TEXT ADDRESS IN HL 
* ITERATE, SKIPPING NORMAL JUNK ON END TEST AT ILOOP 
NEXT4 XCHG é SAVE NEW TEXT ADDRESS IN DE 
CALL JOE 
XCHG 
NEXT6 SHLD TXA 
NEXTS LXI H, LLOOP 
XTHL 
RET ; TO DISPATCHER SKIPPING JOE CALL THERE 
# nya 
SIF MVI B,i SPECIFY PRINCIPAL OPERATOR IS RELATIONAL 
CALL EXPB4 
LHLD ASTKA LDDRESS OF BOLLEAN VALUE ON ARG STACK 
INR M SETS ZERO CONDITION IF RELATIONAL WAS TRUE 
PUSH PSW SAVE CONDITIONS TO TEST LATER 
‘CALL POPAS REMOVE VALUE FROM ARG STACK COPY TO SELF 
POP PSW 
JNZ REM IF TEST FALSE TREAT REST OF STATEMENT AS REM 
# TEST SUCCEEDED 
MVI B, THENRW 
CALL FATC 
CALL INTGER CHECK IF LINE NUMBER IS DESIRED ACTION 
JC ISTAT 
JMP GOTO4 
# "GOTO" 
SGOTO XRA A 
STA - DIRF CLEAR DIRECT STATEMENT FLAG 
CALL INTGER RETURNS INTEGER IN HL IF LINE NUMBER PRESENT 
JC Ea SYNTAX ERROR NO LINE NUMBER : 
GOTOS XCHG . LN IN DE 
CALL FINDLN RETURNS TEXT ADDRESS POINTS TO COUNT VALUE 
GOTO2 INX | 
INX H 
INX H ADVANCE TEXT POINTER PAST LINE NUMBER AND COUNT 
JMP NEXTS 
* "GOSUB" 
GOSUB CALL DIRT | 
LXI D,-3 CREATE CONTROL STACK ENTRY 
CALL PSHCS 
PUSH H SAVE STACK ADDRESS 
CALL INTGER 
JC Ea 
XCHG ‘ LINE NUMBER TO DE 
CALL JOE 
MOV B,H 
MOV C.L 
POP -#H STACK ADDRESS 
MOV M,B STACK RETURN ADDRESS RETURNED BY JOE 
DCX H ; 
MOV M,C 
DCX H 
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03CF 
03u4 
03D4 
03D5 
0306 
03D7 
O3DA 
O3DA 
0300 
03£0 
0353 
O3E4 
O3E5 
0358 
O3EA 
O3ED 
03ED 
03F0 
O3F3 
O3F4u 
03F4 
0375 
0376 
03F7 
0378 
0379 
03FC 
O3FD 
O3FE 
O3FF 


_ 0402 


0405 
0405 
0408 
0408 
O40D 
0440 
0434 
O4g4 
0435 
0435 
0448 
04438 
O4aCc 
O44E 
O44F 
0422 
0425 
0426 
0428 
0428 
O42E 
0420 
0433 
0436 
0439 


02 
6E 


B5 


Ob 


48 


OD 


0559 


0560 
0564 
0562 
0563 
0564 
0565 


0566 


0567 
0568 
0569 
0570 
0578 
0572 
0573 
Q574 
0575 
0576 
O577 
0578 
0579 
0580 


0584 


MVI 
CALL 
INX 
INX 
INX 
JMP 
* "RETURN" 
RETRN CALL 
STA 
LHLD 
RET4 MOV 
ORA 
JZ 
CPI 
JZ 
* REMOVE FOR TYPE 
LXI 
DAD 
JMP 


RET@ 
* FOUND A GTYPE STACK ENTRY 
H 


RET2 INX 
MOV 
INX 
MOV 
INX 
SHLD 
XCHG 
MOV 
DCR 
JNZ 
JMP 
* "DATA AND REM" 
DATA CALL 
REM CALL 
CPL 
JINZ 
DCX 
SHLD 
RET 
#" "DIMENSION" 
DIM CALL 
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M,GTYPE 
FINDLN 


D,FORSZ 
D 


E,M- 
H 

D,M 

H 
CSTKA 
A,M 

A 
NEXTY 
END 


DIRT 
GCI 
CR 
REM 


| 

B, LPARRW 
FATC 
EXPRB 
B,')!* 
EATC 
Prix 
H,MATUB 
DCMP 


MAKE CONTROL STACK ENTRY TYPE 'GOSUB! 


CLEARS DIRF IF ACC IS CLEAR 


CHECK FOR STACK EMPTY 
CHECK FOR GOSUB TYPE 
STACK 


LOW ORDER TEXT ADDRESS 


HIGH ORDER TEXT ADDRESS 
ADDRESS OF PREVIOUS CONTROL STACK ENTRY 


PUT TEXT ADDRESS IN HL 
ADDRESS POINTS TO EOF IF GOSUB WAS LAST LINE 
END OF FILE? 


DATA STATEMENT ILLEGAL AS DIRECT 
BACKUP POINTER SO NORMAL JOE WILL WORK 


LOOK FOR VARIABLE NAME 
PREPARE TURN ON 200Q BIT TO SIGNIFY MATRIX 


ERROR IF NAME ALREADY EXISTS 
SYMBOL TABLE ADDRESS 


RETURN INTEGER IN DE 
MAXIMUM SIZE FOR MATRIX 
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O42C D2 C2 00 0645 JNC E6 
O43F Ed 0646 POP H SYMBOL TABLE ADDRESS 
O4LO-CD C6 OB 0647 CALL DIMS 
O442 CD 02 OD 0618 CALL GC SEE IF MORE TO DO 
O46 FE 2C 0649 CPL nif 
O448 CO 0620 — RNZ 
O44g CD OA OD 0624 CALL GCI RAT THE COMMA 
O4XC C3 45 O84 0622 JMP DIM 
O4uF 0623 * "STOP" 
O44F CD 63 OD 0624 STOP CALL DIRT 
0452 CD 49 10 0625 STOPS GALL CRLF 2 
O455 32 3F 49 0626 STA ' BRKCHR 
0458 24 65 07 0627 LXI H, STOPS : 
0458 C3 D4 00 0628 JMP ERM4 
OUSE 0629 * "END" 
O4SE 0630 END EQU °- CMND4 
O45E 0634 # "READ" 
O4SE CD 63 OD 0632 READ “CALL DIRT 
.0463 2A 95 37 0633 LHLD TXA 
C464 ES 0634 PUSH H SAVE TXA TEMPORARILY 
O465 2A Ba 38 0635 LHLD RTXA THE 'READ' TXA 
0468 22 95 47 0636 READO SHLD TXA 
O46B CD OA OD 0637 ; CALL GCI 
O46E FE 2c 0638 © CPL at 
O470 CA 8B 0a 0639 JZ READ2 PROCESS INPUT VALUE 
0473 FE 87 0640 CPI DATARW 
0475 CA 8B 04 0643 JZ READ2 
0478 3D 0642 DCR A 
0479 CA B8 O04 0643 JZ READY 
O47C 0644 #* SKIP TO NEXT LINE 
O47C CD 08 O4 0645 CALL REM LEAVES ADDRESS OF LAST CR IN HL 
CUTF 23 0646 INX H 
0480 7E 0647 MOV A,M 
04814 3D 0648 DCR A 
O482 CA B8 O4 0649 JZ READY 
O485 23 0650 | INX H 
0486 23 0554 INX H 
0487 23 0652 INX H HL NOW POINTS TO FIRST BYTE OF NEXT LINE 
0488 C3 68 Ou 0653 JMP READO 
O48B - 0654 # PROCESS VALUE 
O48B CD D7 05 0655 READ2 CALL EXPRB 
O48E CD 02 OD 0656 CALL GC 
0493 FE 2c 0657 CPI rt SKIP JOE TEST IF COMMA 
0493 CA 99 04 0658 JZ READ3 
0496 0659 * JUNK ON END TEST 
0496 CD 2E OC 0660 CALL JOE 
0499 2A 95 47 0663 READ3 LHLD TXA 
O4gC 22 Ba 48 0662 SHLD RT.XA SAVE NEW "READ" TEXT ADDRESS 
OYOF Fy 0663 POP H REAL TXA 
O4AO 22 95 47 0664 SHLD TXA 
O4A3 CD EA OB 0665 © CALL VAR 
O4A6 DA AA 00 0666 JC EG 
O4A9 CD BD OC 0667 CALL POPAS - PUT READ VALUE INTO VARIABLE 
O4AC CD 02 OD 0668 CALL GC 


O4AF FE 2C 0669 CPI Pig ce CHECK FOR ANOTHER VARIABLE. 
O4B4 CO 0670 RNZ 
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0482 CD OA OD 0678 CALL GCI EAT THE COMMA 
04B5 C3 5E 04 0672 JMP READ 
0488 EA 0673 READS POP H PROGRAM TXA 
O4B9 22 95 47 0674 SHLD TXA 
O4BC 04 BU 52 0675 LXI B,'RD! 
O4BF C3 C5 00 0676 JMP ERROR 
04c2 0677 * "RESTORE" 
O4C2 2A 50 439 0678 RESTOR LHLD BOFA BEGINNING OF FILE POINTER 
O4C5 23 0679 INX H 
O4C6 23 0680 INX H 
O4C7 23 0683 INX H 
O4C8 22 BS a8 0682 - SHLD RTXA 
O4CB Cg 0683 RET 
oucc 0684 * "PRINT! 
O4CC CD 02 OD 0685 PRINT CALL GC 
OUCF FE OD 0686 CPI CR CHECK FOR STAND ALONE PRINT 
O4D4a CA 4C 40 0687 az CRLF 
O44 FE 22 0688 PRIN2 CPI ne 
O4D6 CA 36 05 0689 JZ PSTR PRINT THE STRING 
O4D9 FE 9C 0690 CPI TABRW 
O4DB CA 58 05 0694 JZ PTAB TABULATION 
O4DE FE 25 0692 CPI rg? 
O4E0 CA 23 05 0693 JZ PFORM SET FORMAT 
O4E3 FE OD 0694 CPI CR 
O4ES CB 0695 - RZ 
O4E6 FE 32 0696 CPI ree 
O4E8 CB 0697 RZ 
O4EQ CD D7 05 0698 CALL EXPRB MUST BE EXPRESSION TO PRINT 
O4FC 44 BB 48 0699 LXI - D,FPSINK 
OEP CD BE OC 0700 CALL POPAS POP VALUE TO FPSINK 
OLF2 3A 90 47 0703 LDA PHEAD 
O4FS FE 38 0702 CPI 56 
O4F7 D4 4C 40 0703 CNC CRLF DO CRLF IF PRINT HEAD IS PAST 56 
OMFA 24 BB 48 0704 LXI H, FPSINK 
O4FD Cb 73 40 0705 CALL FPOUT 
0500 06 20 0706 MVI B,' 
0502 CD 95 OF 0707 CALL CHOUT 
0505 CD 02 OD 0708 PRA CALL GC GET DELIMITER 
0508 FE 2C 0709 CPI me 
O50A C2 4C 10 0740 JNZ CRLF 
0500 CD OA OD 0744 PRO CALL GCI 
0510 CD 02 OD 0742 CALL GC 
0533 C3 D4 Ou 0713 MP PRIN2 
0516 CD OA OD 0744 PSTR CALL GCI GOBBLE THE QUOTE 
05439 CD 23 OD 0745 CALL PRNT. PRINT UP TO DOUBLE QUOTE 
054C 23 0746 INX H MOVE POINTER PAST DOUBLE QUOTE 
O54D 22 95 437 0747 SHLD TXA 
0520 C3 05 05 0738 JMP PRA 
0523 3E OC 0749 PFORM MVI A, 2*FPNIB 
0525 32 3A a9 0720 STA INFES 
0528 Cb OA OD 0729 CALL GCI GOBBLE PREVIOUS CHAR 
0523 CD OA OD 0722 PFRM$ CALL GCI 
O52E 24 3A 4¢ 0723 LXI H, INFES 
0531 FE 25 0724 CPI tgs DELIMITER 
05332 CA 05 05 0725 JZ PRa 


0524 O6 80 0726 MVI B,200Q 
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0538 FE 5A 0727 CPI "7 TRAILING ZEROS? 

O53A CA 52 05 0728 © JZ PFA 

O53D 06 04 0729 : MVI B,4 

O53F FE 45 0730 CPI ‘Rt SCIENTIFIC NOTATION? 

0543 CA 52 05 0733 a2 PFA 

O544u CD FA $2 0732 CALL NMCHK 

0547 D2 AA 00 0733 JNC Ea 

OS4¥A D6 30 " 0734 SUL ‘QO! NUMBER OF DECIMAL PLACES 

O54C 07 0735 RLC 

O54D 47 0736 MOV B,A 

OS4E 7E | 0737 MOV A,M 

OSUF E6 Ca 0738 ANI 303Q 

0553 77 0739 MOV M,A 

0552 7E O740 PFA MOV A,M 

0553 BO O743 ORA B 

0554 77 O742~ =: MOV M,A 

0555 C3 2B 05 0743 JMP PFRM4 

0558 CD OA OD O744 PTAB CALL GCL GOBBLE TAB RW 

O55B 06 EO. 3 O745 MVI B, LPARRW 

O55D CD FA OC O746 CR EATC 

0560 CD D7 O05 O74U7 CALL EXPRB 

0563 06 29 0748 MVI B,')! 

0565 CD FA 0C O749 CALL EATC 

0568 CD 8A OD 0750 CALL PFIX 

056B 3A 90 17 0751 PTABA LDA PHEAD 

OS6E BB 0752 CMP E 

OS6F D2 05 05 0753 JNC PRA 

0572 06 20 | 0754 MVI B,' ' 

0574 CD 95 OE 0755 CALL CHOUT 

0577 C3 6B 05 0756 JMP PTAB2 

OS7A 0757 * "INPUT" 

O57A CD 02 OD 0758 INPUT - CALL GC 

057D FE 2c 0759 CPL Post 

O57F CA CB 05 0760 JZ NCRLF 

0582 CD 4C 40 0764 CALL CRLF 

0585 06 3F 0762 INPO MVI B,'?! 

0587 CD 95 OF 0763 CALL CHOUT 

058A CD 55 OF 076% LINP CALL INLINE 

O58D 3% D3 48 0765 LXI D, IBUF 

0590 D5 : 0766 IN3 PUSH D SAVE FOR FPIN 

0593 CD EA 0B 0767 CALL VAR 

0594 DA AA O00 0768 JC Ea 

0597 Da 0769 POP D 

0598 06 00 07706 MVI B,0 

OS59A aA 0774 LDAX D | 

059B FE 2B 0772 CPL "4! LOOK FOR LEADING PLUS OR MINUS ON INPUT 

O59D CA AT 05 0773 JZ IN2 

O5A0 FE 2D 0774 CPL ‘it 

O5A2 C2 AB O05 0775 JINZ IN3 

O5A5 06 03 0776 MVI B,4 

OSAT $3 0777 IN2 INX D 

O5A8 C5 0778 IN3 PUSH B 

O5A9 E5 0779 PUSH H 

O5AA CD 57 42 0780 CALL FPIN INPUT FP NUMBER 

O5AD DA Da 05 07834 JC INERR | 


0530 Ed . 0782 POP “A 


PROCE 
a 


O5B3 
05B2 
0583 
05384 
05B7 
0539 
 O5BA 

05BD 
O5BE 
05C0 
0503 
05¢3 
05C5 
058 
05CB 


' OSCE 


O5uv4 
0504 
0507 
O5D7 

507 
0507 
057 
O5D7 
O5D9 
O5vC 
O50D 
O5E0 
O5E0 
O55E4 
OSE2 
0583 
O5E6 
O59 
OSEA 
O5ED 
O5F0 
0573 
O5F6 
 O5FY9 
O5FC 
OSFF 
0604 
0604 
0607 
0607 
050A 
0460C 
0460F 


06434 i 


0634 


0644 F 


0645 
0618 
C619 
064C 
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OD 


0D 


08 
47 


47 
00 


# 


0783 
078% 
0785 
0786 
0787 
0788 
0789 
0790 
0794 
0792 
0793 
0794 
0795 
0796 
O797 
0798 
0799 
0800 
0804 
0802 
0803 
0804 
0805 
0806 
0807 
0808 
0809 
0820 
08438 
0842 
0843 
O844 
0845 
0816 
0847 
0848 
0819 
0820 
0824 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0834 
0832 
0833 
0834 
0335 
0836 
0837 
0838 
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DCX H 
POP PSW 
MOV M,A 
CALL GC 
CPI rit 
RNZ : DONE IF NO MORE 
CALL GCI FAT THE COMMA 
MOV A,B CET THE TERMINATOR TO A 
CPI mt 
JZ IN3 ‘GET THE NEXT INPUT VALUE FROM STRING 
* GET NEW LINE FROM USER 
MVI B,'?! 
CALL CHOUT 
JMP INPO 
NCRLF CALL GCI 
JMP LINP NOW GET LINE 
INERR LXI B,'IN! 
JMP ERROR 
% 
EVALUATE AN EXPRESSION FROM TEXT 


# HL TAKE OP TABLE ADDR OF PREVIOUS OPERATOR (NOT CHANGED) 
* RESULT VALUE LEFT ON TOP OF ARG STACK, ARGF LEFT TRUE 


EXPRB = MVI B,0 
EXPB3 ~  LXI H, OPBOL 
XRA A 
STA RELTYP 
* ZERO IN B MEANS PRINCIPAL OPERATOR MAY NOT BE RELATIONAL 
EXPR PUSH ° B 
PUSH H PUSH OPTBA: 
XRA A 
STA ARGF 
EXPR4 LDA ARGF 
ORA A | | 
JNZ EXPR2 7 
CALL VAR LOOK FOR VARIABLE PERHAPS SUBSCRIPTED 
CNC PSHAS 
JNC EXPR2 
CALL CONST 
JNC EXPR2 
CALL GC 
CPI LPARRW 
LXI H,OPLPAR 
JZ XLPAR 
# ISN'T OR SHOULDN'T BE AN ARGUMENT 
EXPR2 CALL GC , 
CPI 3409 CHECK FOR RESERVED WORD OPERATOR 
INC XOP 
CPI 3009 CHECK FOR BUILT IN FUNCTION 
JNC XBILT 7 
* ILLEGAL EXPRESSION CHARACTER 
POP GET OPTABA 
LDA ARGF 
ORA A 
JZ EA 


XDON9 POP 


PSW 


PAGE 


45 
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064D 
0620 
0623 
0622 
0625 
0627 
062A 
0628 
O62E 
062E 
0630 
0633 
0635 
0638 
06383 
0635 
0640 
0643 
0644 
O64S 
0646 
064g 


0649 j 


O6UA 
0648 
O6uUF 
O64uF 
0650 
0652 
0655 
0656 
0656 
0656 
0657 
0658 
045B 
065C 
065D 
O65F 
0662 
0462 
0665 
0666 
06469 
O66A 
O66B 
O66E 
O56F 
0670 
0673 
06748 
0674 
0674 
0674 
0674 
C674 


COPYRIGHT 4976 


2h 
Be 
C8 
C3 
E6 
2A 
rav) 
CA 


94 


ac 


OA 


00 
ae) 


ac 
04 
6B 
05 
ac 


E6 


40 


47 


00 
17 
06 


06 
00 
Ov 
05 
06 


06 


05 


# 


0839 
0840 
0844 
0842 
0843 
084k 
0845 
0846 
0847 
0848 
0849 
0850 
08514 
0852 
0853 
0854 
0855 
0856 
0857 
0858 
0859 
0860 
0864 
0862 
0863 
0864 
0865 
0866 
0867 
0868 
0869 
0870 
0874 
0872 
0873 
0874 
0875 
0876 
0877 
0878 
0879 
0880 
0884 
0882 
0883 
0884 
0885 
0886 
0887 
0888 
0889 
0890 
0894 
0892 


(0893 
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LXI H,RELTYP CHECK IF LEGAL PRINCIPAL OPERATOR 
CMP M 
RZ 
JMP EA 
XOP ANI 37Q CLEANS OFF RW BITS 
LHLD ARGF TEST FOR ARGF TRUE 
DCR L 
Jz XOP4 
* ARGF WAS FALSE, UNARY OPS ONLY POSSIBILITY 
CPI '.'-OPBASE 
Jz XOPM 
CPI '+'-OPBASE 
JNZ EW 
CALL GCI EAT THE ‘+! 
| JMP EXPR& 
XOPM MVI A, UMINUS-OPBASE 
XOP4 CALL OPADR 
POP D PREVIOUS OPTBA 
LDAX D 
CMP M 
JNC XDON4 NON-INCREASING .PRECEDENCE 


# INCREASING PRECEDENCE CASE 
P D 


USH 


SAVE PREVIOUS OPTBA 


PUSH H SAVE CURRENT OPTBA 
CALL GCI TO GOBBLE OPERATOR 

POP H 

PUSH B 

MVI B,0 SPECIFY NON-RELATIONAL 
CALL EXPR 

POP H 


* HL HAS OPTBA ADDRESS 
# SET UP ARGS AND PERFORM OPERATION ACTION 


XOP2 PUSH H 
MOV A,M 
LHLD ASTKA 
MOV B,H 
MOV CAL 
ANI 4 
JNZ XOP2a 
# DECREMENT STACK POINTER BY ONE VALUE BINARY CASE 
LXI D,FPSIZ ' 
DAD D 
SHLD ASTKA 
MOV D,H 
MOV E,L 
XOP24 LXI H, EXPR4 
XTHL : CHANGE RETURN LINK 
INX H SKIP OVER PRECIDENCE 
CALL LHLI LOAD ACTION ADDRESS 
PCHL 


# 


# ACTION ROUTINE CONVENTION 

# DE LEFT ARG AND RESULT FOR 3INARY 

* BC RIGHT ARG FOR BINARY, ARG AND RESULT FOR UNARY 
* BUILT IN FUNCTION PROCESSING 


0894 *% 


a6 
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0674 CD OA OD 0895 XBILT CALL GCI EAT TOKEN 
0577 E6 3F 0896 | ANI 77Q 7 CLEAN OFF RW BITS 
0679 2A 93 47 0897 LHLD ARGF BULLT IN FUNCTION MUST CONE AFTER OPERATOR 
067C 2D 0898 DCR L 
O67D CA AA 00 0899 JZ Es 
0680 CD 95 06 0900 CALL OPADR OPTBA TO HL 
0682 E5 0903 XLPAR PUSH H 
0684 06 EO 0902 MVI B, LPARRW 
0686 CD FA OC 0903 CALL FEATC 
0689 CD D7 05 0904 CALL EXPRB 
068C 06 29 0905 MVI B,')! 
O68E CD FA OC 0906 CALL FATC 
0694 E4 0907 POP H CODE FOR BUILT-IN FUNTION 
0692 C3 56 06 0908 JMP XOP2 
0695 0909 * COMPUTE OPTABLE ADDRESS FOR OPERATOR IN ACC 
- 0695 uP 0910 OPADR MOV Ch 
0696 06 00 0914 MVI B,0 
0698 24 D6 08 09142 LXI H, OPTAB 
069B 09 0913 DAD B 
069C 09 0934 DAD B 
069D 09 0915 DAD B OPTAB ENTRY ADDR IS 3*OP+BASE 
O69E C9 0916 RET 
0469F 0947 * 
0497 0948 * PREPROCESSOR, UN-PREPROCESSOR 
069Ff 09419 * PREPROCESS LINE IN IBUF BACK INTO IBUF 
O469F 0920 * SETS CARRY IF LINE HAS NO LIN® NUMBER 
0697 0924 # LEAVES CORRECT LENGTH OF LINE AFTER PREPROCFSSING IN IBCN 
069? | 0922 * IF THERE IS A LINE NUMBER, IT IS LOCATED AT IBLN=IBU?-2 
O49F 0923 ® TXA IS CLOBBERED 
069F 092u # . 
O59F 24 D3 48 0925 PP LXI H, IBUF FIRST CHARACTER OF INPUT LINE 
O6A2 22 95 47 0926 SHLD TXA SO GCI WILL WORK 
O6A5 CD EO OD 0927 CALL INTGER SETS CARRY IF NO LINE NUMBER 
O6A8 22 D4 48 0928 ° SHLD IBLN STORE LINE NUMBER VALUE (EVEN IF NONE) 
OSAB FS5 0929 PUSH PSW SAVE STATE OF CARRY BIT FOR RETURNING 
O6AC 2A 95 47 0930 LHLD TXA ADDRESS OF NEXT CHARACTER IN IBUF 
O6AF OF O4 0934 MVI c,4 SET UP INITIAL VALUE FOR COUNT 
06B1 34 D3 48 0932 LXI D,IBUP INITIALIZE WRITE POINTER 
O4B4 0933 * COME HERE TO CONTINUE PREPROCESSING LINE 
O6Bu D5 0934 PPL PUSH D 
- O6B5 44 02°08 0935 LXI D,RWT BASE OF RWT 
O6B8 E5 0936 PPL4 PUSH H SAVE TEXT ADDRESS 
O6B9 3A 0937 -LDAX D RW VALUE FOR THIS ENTRY IN RWT 
O6BA U7 0938 MOV B,A SAVE IN B IN CASE OF MATCH 
046BB 13 0939 PPL2 INX D | ADVANCE ENTRY POINTER TO NEXT BYTE 
O6BC 4A 0940 LDAX D GET NEXT. CHARACTER FROM ENTRY 
O63D BE O94a CMP M COMPARE WITH CHARACTER IN TEXT 
O5BE C2 C5 06 0942 JNZ PPL3 . 
06C4 23 | 0943 INX H ADVANCE TEXT POINTER 
06C2 C3 BB 06 0944 JMP PPL2 CONTINUE COMPARISON 
06C5 0945 * COME HERE WHEN COMPARISON OF BYTE FAILED 
C6C5 B7 0946 PPL3 ORA A 
O6C6 FA FT 06 0947 JM PPLA JUMP IF FOUND MATCH 
06C9 0948 * SCAN TO BEGINNING OF NEXT ENTRY 
06C9 33 0949 PPLY INX D ALVANCE ENTRY POINTER 


C6CA GA 0950 LDAX D NEXT BYTE IS EITHER CHARACTER OR RW BYTE 
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O46CB BT 0954 ORA A 
O6CC F2 C9 06 0952 je PPL KEEP SCANNING IF NOT RW BYTE 
O6CF 0953 * NOW SEE IF AT END OF TABLE, AND FAIL OR RETURN CONDITION 
O6CF E4 0954 POP H RECOVER ORIGIONAL TEXT POINTER 
0600 EE FF 0955 XRI 377Q CHECK FOR END OF TABLE BYTE 
06D2 C2 BB 06 0956 INZ PPL4 CONTINUE SCAN OF TABLE 
06D5 0957 # DIDN'T FIND AN ENTRY AT THE GIVEN TEXT ADDR 
06D5 D3 0958 POP D | 
0606 7E 0959 MOV ALM GET TEXT CHARACTER 
06D7 FE OD —. 9960 CPI CR CHECK FOR END OF LINE 
06D9 CA 00 07 0968 JZ PPLB GO CLEAN UP AND RETURN 
O6DC 42 0962 STAX D 
06D) 33 0963 INX D 
O6DE OC 0964 INR C 
O6DF 23 0965 . INX r ADVANCE TEXT POINTER 
O6EO FE 22 0966 CPI rm CHECK FOR QUOTED STRING POSSIBILITY 
O6E2 C2 BU 06 0967 INZ PPL RESTART RWT SEARCH AT NET CHARACTER POSITION 
O6E5 | | 0958 * HERE WE HAVE A QUOTED STRING, SO EAT TILL ENDQUOTE 
O6E5 TE 0969 PPLS5 MOV ALM NEXT CHARACTER 
O5E6 FE OD 0970 CPI CR - 
O6F8 CA 00 07 0973 Jz PPL8 NO STRING ENDQUOTE, LET INTERPRETER WORRY 
O6EB 12 0972 STAX D 
O6EC 43 0973 INX D 
O6ED OC | 0972 INR C 
O6EE 23 9975 INX 4 ADVANCE TEXT POINTER 
O6EF FE 22 0976 CPI vie 
O6F4 CA BY 06. 0977 JZ PPL BEGIN RWT SCAN FROM NEW CHARACTER POSITION 
O6F4 C3 E5 06 0978 JMP PPLS 
O6F7 0979 ® FOUND MATCH SO PUT RW VALUE IN TEXT 
O6F7 F3 0980 PPL6 POP PSW REMOVE UNNEEDED TEST POINTER FROM STACK 
O6F8 D4 0984 POP D 
O6F9 78 0982 MOV A,B 
O6FA 12 0933 STAX D 
O6FB 13 0984 INX D 
O6FC OC 0985 INR C 
O6FD C3 BA 06 0986 JMP PPL 
0700 09387 *# COME HERE WHEN DONE 
0700 3E OD 0988 PPL8 MVI A, CR 
0702 42 0989 STAX D 
0703 24 DO 38 0990 LXI H,IBCNT | SET UP COUNT IN CASE LINE OF LINE NUMBER 
0706 7a 0993 MOV M.C | 
0707 F3 0992 POP PSW RUSTORE CARRY CONDITION (LINE NUMBER FLAG) 
0708 C9 0993 RET 
0709 0994 # 
0709 0995 * UN PREPROCESS LINE ADDRESSES IN HL TO DE BUFFER 
0709 0996 * RETURN SOURCE ADDRESS OF CR IN HL ON RETURN 
0709 0997 # 
0709 23. 0998 UPPL INX H SKIP OVER COUNT BYTE 
O70A ES 0999 PUSH 4 SAVE SOURCE TEXT POUNTER 
070B CD 40 OD 4000 CALL LHLI = LOAD LINE NUMBER VALUE 
O70E CD FA OD 4003 CALL CNS CONVERT LINE NUMBER 
0744 3E 20 : 4002 MVI A,’ ¢ | 
0743 32 4003 STAX D PUT BLANK AFTER LINE NUMBER 
07434 33 - $008 INX D INCREMENT DESTINATION POINTER 
0745 Ba | 4005 POP y 
0716 23 3006 INX H INCREMENT H PAST LINE NUMBER 
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0787 23 A007 UPPO INX H 
0748 7E 4008 MOV AM NEXT TOKEN IN SOURCE 
0739 B7 | a009 ORA A 
O74A FA 25 07 4020 JM UPPa JUMP. IF TOKEN IS RW 
O74D a2 4048 STAX D PUT CHARACTER IN BUFFER 
O74E FE OD 4042 CPI CR CHECK FOR DONE 
0720 C8 4043 RZ | 
0724 43 a044 INX D ADVANCE DESTINATION BUFFER ADDRESS 
0722 C3 47 07 4035 JMP UPPO 
0725 4036 * COME HERE WHEN RW BYTE DETECTED IN SOURCE 
0725 E5 9037 UPPS PUSH H SAVE SOURCE POINTER 
0726 24 02 08 2048 LXI H,RWT BASE OF RwWT 
0729 BE 4019 UPP2 CMP M SEE IF RW MATCHED RWT ENTRY 
O72A 23 $020 INX H ADVANCE RWT POINTER | 
072B C2 29 07 1024 JNZ UPP2 CONTINUE LOOKING IF NOT FOUND 
O72E | 4022 * FOUND MATCH, ENTRY POINTER LOCATES FIRST CHARACTER 
O72E 7E 4023 UPP3 MOV A,M CHARACTER OF RW 
O72? B7 a02u ORA A CHECK FOR DONE 
0720 FA 39 07 4025 JM UPPL 
0733 42 : 4026 STAX D 
0734 33 4027 INX D 
0735 23 4028 INX H 
0736 C3 2E 07 4029 JMP UPP3.. 
(0739 4030 * COME HERE IF DONE WITH RW TRANSFER 
0739 Ea 1034 UPPY POP H SOURCE POINTER 
073A C3 47. 07 4032 JMP UPPO 
073D 4033 * 
073D : 4034 # CONSTANTS AND TABLES 
07 30 | 4035 * ; 
073D 52 45 4a 44 4036 RDYS ASC "READY"? 
: 59 22 - 
0743 50 52 BF 47 4037 PLS ASC "PROGRAM LOADED? "' 
52 uy sy 20 
WC UP 4g 44 
45 Bu 3F 20 
22 | 
0754 20 45 52 52 4038 ERS’ ASC . ' ERROR"? 
uP 52 22 
075B 20 49 4E 20 1039 INS ASC ' IN LINE "! 
uC 4g YE 4S 
| 20 22 
0765 53 54 uF 50 4040 STOPS ASC ‘STOP 
22 , 
O76A 46 49 52 53 4044 FAS ASC ‘FIRST ADDR "? 
«54 20 4a by 
bk 52 20 22 
0776 4C 44 53 54 4042 LAS ASC ‘LAST ADDR "* 
20 44 4b yy 
52 20 22 
0783 4043 # . 
0781 FF 904k DB -4 FLAGS END OF SINE COEFFICIENT LIST 
0782 00 4045 DB 0 
0783 40 4046 DB 946 
0784 00 00 1047 DW 0 
0786 00 4048 DB 0 


0787 84 3049 FPONE DB 329 EXPONENT 
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0788 4050 # SINE COEFFICIENT LIST 
0788 3054 # NOTE: THE FLOATING PNT 4 ABOVE IS A PART OF THIS TABLE 
0788 16 4052 DB 4*464+6 
0789 66 4053 DB 6%1464+6 
O78A 67 4054 DB 6*164+7 
078B 03 8055 DB 4 
078C 80 1056 DB 128 ~.166667 E 0 (-4/3!) 
0780 83 4057 DB 844643 
O78E 33 4058 DB 3*4643 
OT8F 33 1059 DB 3% 46+4+3 
0790 00 4050 DB 0 
0794 TE 41064 DB 428-2 833333 E-2 (1/5!) 
0792 49 4062 DB 4*41649 : 
0793 84 4063 DB 8#1644 
0794 43 $064 DB 494643 
0795 04 4065 DB. 4 
0796 7D 4066 DB 4128-3 -.4198443 F-3 (-14/7!) 
0797 27. 4067 DB 2#16+7 
0798 55. 4068 DB 594645 
0799 73 4069 DB 734643 | 
079A 00 1070 DB 0 ; 
O79B 7B 407A DB 428-5 -275573 E-5 (4/92) 
079C 25 4072 DB 283645 
079D 05 1073 DB 0* $645 
O79E 23 4074 | DB 244641 
O79F 03 4075 DB 4 
O7A0 79 4076 SINX DB 428-7 ~,250524 E=j7 (-4/134!) 
O7A% a077 # COSINE COEFFICIENT LIST 
O7A4 FF 4078 DB a MARKS END OF LIST 
O7A2 00 1079 DB 0 
O7A3 10 43080 DB 4*36+0 
O7A4% 00 41084 DB 0 
O7A5 00 4082 DB 9) 
O7A6 00 4083 DB 0 
O7A7 843 a084 DB 42844 .100000 E 4 (4/34!) 
07A8 50 4085 DB 5 #41640 
O7A9 00 4086 DB 0 
O7AA 00 4087 DB 0 
O7AB 03 1088 DB 4 
O7AC 80 1089 MATUB DB 428 ~.500000 E 0 (-4/2!) 
O7AD 43 41090 DB 4® 4644 
O7AE 66 3094 DB 6* 4646 
O7AF 67 4092 DB 6%*36+7 
07B0 00 41093 DB 0 
O7Ba 7F 4094 RANDS DB 428-4 .496667 E-% (4/4!) 
0782 33 2095 DB 974643 | 
07B3 88 4096 DB 8¥ 3648 
O7Bu 89g 4097 DB 8#164+9 
O7B5 04 4098 DB 4° 
07B6 7E 4099 DB 128-2 .438889 E-2 (-8/6!) 
0787 24 4100 | DB 2* 1644 
07B8 80 3304 DB 8#46+0 
O7B9 16 43102 DB 374646 
O7BA 00 $303 DB 0 
O78B 7C Ago DB 128-4 .2480496 E-4 (49/81) 


O7BC 27 4405 DB 2% 36+7 


PROCESSOR TECHNOLOGY BASIC 
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073D 
O7BE 
O78F 
07C0 
O7Ca 
07C2 
07Cu 
07C5 
07C6 
07C7 
07C8 
O7C9 
O7CA 
07C3 
O7CC 
O7CL 
O7CE 
O7CF 
070 
O7b2 
O7b2 
O7v2 
O7v2 
O7v4 
0706 
0708 
O7DA 
O7LC 
O7DE 
O7EO 
O7EO 
OTE2 
O7E4 
O7E6 
O7E8 
OTEA 
OQ7EC 
O7EE 
O7FO 
O7F2 
O7F4 
O7F6, 
O7F8 
O7TFA 
O7FC 
O7FE 
0800 
0802 
0802 
0802 
0892 
0802 
0302 
0802 
0802 
0306 


55 
f3 
03 
TA 
20 
00 
00 
84 
a5 
70 
80 
00 
84 
63 
66 
20 
00 
80 
97 


55 
a5 
08 
ut 
00 
00 


00 


gc 


aBo 


84 
A0 
BY 
DA 
SE 
05 
BO 
cc 
7A 
45 
uP 
62 
C2 
08 
vF 


80 
uc 
84 


OG 


a7 


H5 54 


€& & 


1406 
4307 
4408 
$309 
$130 
avai 
ada2 
4443 
aagu 
bOd5 
$316 
4437 
4148 
4439 
4420 
4424 
A422 
1423 
hi24 
4325 
4426 
4327 
4228 


8329, 


4320 
$333 
4332 
4433 
4334 
4435 
4336 
4437 
4438 
4239 
$440 
4444 
4g42 
4343 
agay 
Baus 
4146 
447 
4448 
4449 
Ad50 
4154 
4352 
4153 
4354 
4455 
2156 


4957 


4458 
$159 
4360 
$463 
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DB 5 #4645 
DB 7*36+3 
DB 4 

COSX DB $286 
DB 2246 
DW 0 
DB 0 

FPTWO DB 429 
DB 473645 
DB 7*46+0 
DB 8% 4640 
DB 0 

PIC2 DB 428414 
DB §*® 4643 
DB 6*36+6 
DB 2* 4640 
DB 6) 

PIC4 DB 3428 

LCSTKA DW CSTKL 

% 

: COMMAND TABLE 

CMNDD DW CRUN 
DW CLIst 
DW CNULL 
DW CSCR 
DW START 
DW TSAV 
DW TLOAD 

# STATEMENT TABLE ~ 

STATD DW LET 
DW NEXT 
DW SIF 
DW SGOTO 
DW GOSUB 
DW RETRN 
Dw _ READ 
DW DATA 
DW SFOR 
DW PRINT 
DW INPUT 
DW DIM 
DW STOP 
DW END 
DW RESTOR 
DW REM 

. DW CCLEAR 

* 

# OF RESERVED WORD. LAST 

Py 

* FOLLOW THE LARGER WORD. 

P 

RWT DB 2009 
ASC "LET" 
DB 204Q 


6200 HOLLIS STREET 
EMERYVILLE, CALIF. 94608 


.275573 E-6 (=4/40!) 


PI/2 .457080 E 4 


2/PI .636620 E 0 


SET UP MEMORY BOUNDS 


TAPE SAVE JUMP ADDRESS POINTER 
TAPE LOAD 


ww Eu) Dn) & © 


R/W WORD TABLE FORMAT IS RESERVED WORD FOLLOWED BY CHR 


ENTRY IS FOLLOWED BY A 377Q 


RW'S THAT ARE SUBSTRINGS OF OTHER RW'S (E.G. >) MUST. 


PAGE 
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0807 4E 45 58 54h 4162 ASC wNEXT" 
080B 82 4463 DB 202Q 
O80C 49 46 9464 ASC uypu 
O8CE 83 | 4465 DB 203Q 
O80F U7 4F 548 uF 4166 ASC "GOTO" 
0833 84 | 4467 DB 204Q 
0844 ne UF 53 55 4168 ASC "GOSUB" 
2 
0839 85 4169 DB 205Q 
O84A 52 45 Su 55 4170 ASC "RETURN® 
52 4E 
0820 864. 34738 DB 206Q 
0823 52 45 ug uy 4372 ASC "READ" 
0825 87 | 4373 DB 2070 
0826 wu uy 5u yy sa74 ASC "DATA! 
082A 9475 DATARW EQU 207 
082A 88 4376 DB 240Q 
082B 46 4F 52 3177 ASC "POR" 
O82 89 1178 DB 234 
O082F 50 52 49 UE 4379 ASC "PRINT! 
54 
0834 89 3380 DB 24110 
0835 3A $183 DB ts 
0836 8A 4482 DB 242Q 
0837 49 4E 50 55 4483 ASC "INPUT" 
54 
O83C 8B $48u- DB 243Q 
0832p 44 4g Aap 2485 ASC "DIM! 
0840 8&C 4486 DB 244Q 
0843 53 54 UF 50 4487 ASC ‘STOP! 
0845 8D. 4388 DB 2145Q 
0846 45 WE UY 4489 ASC ‘END? 
0849 8E : 4390 | DB - 236Q 
O84a 52 45 53 54 4394 ASC "RESTORE! 
; MP O52 45 
0853 8F 4492 DB 2479 
0852 52 45 up 4493 ASC ‘REM! 
0855 90 4ag94 DB 220Q 
0856 4&3 UC 45 44 41495 ASC - "CLEAR! 
52 
085B 4196 CLRRW EQU 220Q 
0858 | $497 IRWLIN FQU 2240 LAST INITIAL RESERVED WORD VALUE + 1 
085B 9F 4498 DB 237Q | | 
085C 53 54 4B 50 1399 ASC. 'STEP! 
0850 43200 STEPRW EQU 237Q 
0860 9E . 4204 DB 236Q 
0863 54 UF «i 4202 ASC 'TO! 
0863 3203 TORW EQU 236Q 
0863 9D a204 DB 235Q 
0864 5&u 48 4S YE $205 ASC "THEN? 
0868 4205 THENRW EQU 235Q 
0868 9C 4207 DB 234Q 
0869 54 4S 42 4208 ASC -'TAB? 
O86C 4209 TABRW EQU 234Q 
086C AO 4230 DB 240Q° 


086D 52 55 4E 49258 ASC ‘RUN? 
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0870 4242 RUNRW EQU 240Q 
0870 Aa 4233 DB 244Q 
0878 4C 4g 53 54 4294 ASC "LIST? 
0875 4245 LISTRW EQU 2434Q 
-0875 A2 3246 DB 242Q 
0876 HE 55 4c 4c 4247 ASC "NULL! 
O87A | $238 NULLRW EQU 242Q 
087A A3 : 4249 DB 243Q 
087B 53 43 52 4220 ASC SCR! 
O87E 4224 SCRRW EQU 243Q 
O87E Au 4222 DB 244g 
O87F 4D 45 4D 4223 ASC 'MEM! 
0882 4224 MEMRW EQU 245Q 
0882 A5 4225 DB 245Q 
0883 54 53 44 56 4226 ASC "TSAV" 
0887 A6 . 8227 DB 246Q 
0888 54 uC uP 4g 4228 ASC "TLOAD" 

Ty : 
088D , 4229 LPARRW EQU '(' -OPBASE4340Q 
088D EO 41230 DB LPARRW 
O88E 28 4234 DB 2 Ge 
O88F E2 4232 DB ' ®t OPBASE+340Q 
0890 2A 4233 DB tas 
089a 4234 PLSRW EQU "+! -OPBASE+340Q 
0893 £3 3235 DB PLSRW 
0892 2B 4236 DB ry! 

0893 4237 MINRW EQU t.' -OPBASE+340Q 

0893 £5 — 4238 DB MINRW 

0894 2D . 4239 DB ro! 

0895 7 4240 DB  '/t -OPBASE+320Q 
 Q896 2F 4244 DB myer 

0897 EF - | 42u2 DB 67Q-0 PBASE+320Q 

0898 3E 3D 4243 ASC t>s! 

089A FO qoun DB 70Q-0 PBASE+340Q 

089B 3C 3D A2us ASC '<at 

089D Fa 4246 DB 74Q-OPBASE+320Q 

O89E 3C 3E 4247 ASC <>? 

O8A0 EA 7 1248 DB 62Q-0PBASE+320Q 

084% 3D 3E a2ug - ASC tah 

08A3 EB $250 DB 63Q-0PBASE+340Q 

OBA 3D 3C | 4254 ASC tect 

O8A6 FY 4252 DB '<' OPBASE+240Q 

O8A7 3c. 4253 DB ret 

08A8 | 3254 EQRW EQU . Te -OPBASE4320Q ° 

O8A8 F5 4255 DB EQRW 

08A9 3D 8256 DB tot 

O8AA 76. 4257 DB '>! -OPBASE+340Q 

O8AB 3E 4258 DB rp? 

O8AC C3 | 4259 DB 3049 

O8AD 44 42 53 4260 ASC "ABS? 

0880 C6 4263 DB 3060 

0884 49 4E 54 4262 ASC ‘INT! 

0884 CC 4263 DB 2449 

O8B5 44 52 47 | 4264 ASC "ARG? 

08BB CD 4265 DB 395Q 


08B9 43 44 HC AC $266 ASC "CALL* 


a2 
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O8BD CE  * $267 DB 3169 
O8BE 52 UE yy 4268 ASC 'RND! 
O8C4 D2 4269 DB 322Q 
08C2 53 UT UE 4270 ASC 'SGN' 
08C5 D3 $274 DB 323Q 
0806 53 4g UE 4272 ASC ‘SIN! 
08C9 CL 1273 DB 304Q 
O8CA 53 51 52 4274 ASC 'SQR! 
O8CD D7 4275 DB 327Q 
O8CE 54 44 4E 4276 ASC 'TAN! 
O8D3 D8 4277 DB 3300 
O8D2 43 uF 53 3278 ASC "COS! 
O8D5 FF 4279 DB 377 
C8D6 | 4280 * 
0806 41284 * OPERATION TABLE 
O8D6 4282 % 
08D6 OF #283 OPTAB DB 45 
O8D7 $284 OPLPAR EQU OPTAB 
0837 BC 09 3285 DW ALPAR 
O8D9 OF 4286 DB a5 
O8DA CC 09 4287 DW AABS 
O8DC OA 3288 ' DB 40. 
O8DD 9D 09 4289 DW AMUL 
O8DF 06 9290 DB 6 
O8E0 89 09 4293 DW AADD 
O82 OF 4292 DB 45 
O8F2 57 OA 4293 DW ASQR 
O8ES5 06 ' $294 DB 6 
O8F6 93 09 . 4295 DW ASUB 
O8E8 OF 4296 DB 45 
O8=9 AA OB 4297 De AINT 
O8FB OA 4298 DB 40 
O8EC AT 09 © 4299 DW -  ADIV 
O8FE 03 4300 OPBOL DB 4 
O8FF 00 00 130% DW 0 
O8F4 OD 1302 DB $3 
O8F2 BD 09 4303 DW ANEG 
OSF4 OX $304 DB u 
O8F5 4c ag 3305 DW AGE 
O8F7 O04 $306 DB ho. 
O8F8 58 09 4307 DW ALE 
O8FA OF | 4308 DB 45 
O8FB 79 OB | 4309 DW AARG 
O8FD OF $320 DB. 45 
O8FE 86 OB 3344 DW ACALL 
.0900 OF » 2342 DB 45 
0903 AD OA 43343 DW ARND 
0903 O4 1344 DB 4 
0904 4c 09 4345 DW AGE 
0906 O4 3316 -DB 4 
0907 58 09 3347 DW ALE 
0909 O04 4338 DB y 
O90A 43 09 £349 DW _ ANE 
og90c OF 4320 DB 45 
O090D D2 09 «$328 DW ASGN 


O90CF OF 322 DB 45 
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0920 ED 09 $323 DW ASIN 
0942 04 4324 DB y 
0913 2D 09 4325 DW ALT 
0945 04 4326 DB r 
0916 3A 09 4327 DW AEQ 
0948 O04 $328 DB r 
0919 23 09 4329 DW AGT 
093B OF 1330 DB 45 
093C 3C OA 1334 DW ATAN 
O93E OF 3332 DB 15 
093F 30 OA 3333 DW ACOS 
0928 4334 % 
0923 | 4335 * ACTION ROUTINES FOR RELATIONAL OPERATORS 
0928 1336 * 
0924 CD 68 99 4337 AGT CALL RELOP 
0924 CA 2A 09 4338 JZ RFALSE 
0927 PA 36 09 3339 JM RTRUE 
092A AF 4340 RFALSE  XRA A 
092B 42 4344 STAX D 
092C C9 4242 RET 
092D CD 64 09 4343 ALT CALL RELOP 
0930 CA 2A 09 4344 JZ RFALSE 
0933 PA 2A 09 , 4345 JM RFALSE 
0936 3E FF 4346 RTRUE MVI A, 3770 
0938 432 $347 "  STAX D 
0939 C9 4348 RET 
093A CD 64 09 4249 AEQ CALE RELOP 
093D CA 36 09 4350 JZ RTRUE 
0940 C3 2A 09 $354 JMP - RFALSE 
0943 CD 64 09 3352 ANE CALL RELOP 
0946 CA 2A 09 4353 JZ RFALSE 
0949 C3 36 09 4354 JMP RTRUE 
O094C Cb 64 09 4355 AGE CALL RELOP 
O94F CA 36 09 4356 Ry RTRUE 
0952 FA 36 09 4357 JM RTRUE 
0955 C3 2A 09 4358 JMP RFALSE 
0958 CD 64 09 4359 ALE CALL RELOP 
095B CA 36 09 4360 IZ RTRUE 
095E PA 2A 09 4363 | JM RFALSE 
0964 C3 36 09 $362 JMP RTRUE 
0964 8363 # COMMON ROUTINE FOR RELATIONAL OPERATOR ACTION 
0964 4364 ® LEFT ARG ADDR IN DE, SAVED 
0964 4365 ® RIGHT ARG ADDR IN BC 
0964 4366 * ON RETURN SIGN SET=GT, ZERO SET=EQUAL 
0964 D5 4367 RELOP PUSH D 
0945 OB 4368 DCX B 
0956 4B 4369 DCX D 
0957 60 4370 MOV H,B 
0948 69 4373 MOV Lc 
0969 4A 4372 LDAX D 
O96A 96 1373 SUB M 
096B 23 4374 INX H 
096C a3 4375 INX D | 
096D C2 82 09 4376 JNZ RLOPS TEST SIGNS OF ARGS IF DIFFERENT THEN RET 
0970 01 BB 48 4377 | LXI B, FPSINK 


0973 CD 4F a4 1378 CALL FSUB - 
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0976 3A BB 48 $379 LDA FPSINK CHECK FOR ZERO RESULT 
0979 B7 4380 — ORA A 

097A CA 82 09 3384 JZ RLOP@ 

O97D 3A BA 38 4382 LDA FPSINK-% SIGN OF FPSINK 
0980 07 4383 RLC | 

0984 3D 4384 DCR A 

0982 3E 0a 7 4385 RLOP@ MVI A,a 

098% 32 93 47 3386 STA RELTYP SET RELTYP TRUE 
0987 ba 4387 POP D 

0988 C9 #388 RET 

0989 : 4389 # 

0989 9390 # ACTION ROUTINES FOR ARITHMETIC OPERATORS 
0989 4393 * (CODE WASTERS) 

0989 60 4392 AADD MOV H,B 

098A 69 4393 MOV Lc 

098B 42 3394 MOV B,D 

098C 4B $395 MOV C,E 

098D CD C8 33 4396 AADDA CALL FADD . 

0990 C3 AE 09 3397 JMP FPETST 

0993 60 4398 ASUB MOV H,B 

0994 69 3399 MOV L,C 

0995 42 #400 MOV B,D 

0996 4B $403 MOV C,E 

0997 CD aF 44 $402 ASUBA CALL FSUB 

099A C3 AE O09. 4403 JMP FPETST 

O99D 60 3404 AMUL MOV H,B 

O99E 69 4405 MOV LC 

O99F 42 ; 4405 MOV B,D 

O9A0 4B 407 MOV C,E 

O9A4 CD 98 Qu 2408 AMULS CALL FMUL 

O9A4 C3 AE 09 1409 JMP FPETST 

O9A7 60 $433 ADIV MOV H,B 

O9A8 69 ququ MOV L,C 

O9A9 42 495 MOV B,D 

O9AA 4B 4446 MOV C,E 

C9AB CD Ad &5 4447 ADIVA CALL FDIV 

O9AE AF 4448 FPETST XRA A 

O9AF 32 94 47 auag STA RELTYP 

O9B2 3A 23 37 4420 LDA ERRI 

09B5 B7 u2g ORA A 

09B6 C8 4422 RZ 

O9B7 2A aC 19 4423 LHLD ASTKA ZERO RESULT ON UNDERFLOW 
O9BA 36 00 4424 FPETA MVI M,0 

09BC C9 3425 ALPAR RET 

O9BD 4426 *. 

098D h427 # UNARY AND BUILT IN FUNCTION ACTION ROUTINES 
O9BD g4u28 # 

O9BD OA $429 ANEG LDAX B 

O9BE B7 , 4430 ORA A 

O9BF CA CT 09 4434 JZ ANEGA! 

09C2 0B §432 DCX B 

O9C3 OA 4433 LDAX B 

O0Sc4 EE O04 e434 XRI d 

Q9C6 02 4435 STAX B 

O9C7 AF - $436 ANEG4 XRA sR 

0908 32 931 47 4437 STA RELTYP 
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09C8 
09CC 
09CbD 
OSCE 
O9CF 
0902 
0905 
09D6 
09D7 
0908 
09D9 
O9DC 
O9bD 
O9DE 
O9bDr 
O9EO 
O9E@ 
O9E4 
O9E7 
O9EA 
O9ED 
O9ED 
O9ED 
O9FD 
-O9ED 
O9F0 
O9F3 
O9F4 
09°75 
0978 
O9FB 
O9PFC 
O9FD 
O9CE 
OA04 


OAQd | 


OAQE 
OA07 
OAOA 
OA0v 
OAa0 


0AG3. 


OA16 
OAD 
OA49 
OA49 
OAA9 
CARA 
OA4B 
OAQC 
OAdD 
CAGE 
OA2S 


OA22 } 


OA24 
OA25 
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C7 
CT 


02 


09 
09 


09 
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1438 
4439 
aug 
AULA 
auu2 
S443 
a4uuyu 
@4u5 
G4u6 
S447 
2448 
g4uug 
a450 
452 
$452 
RUS3 
ausy 
@455 
4456 
4457 
9458 
4459 
4460 


4464. 


4462 
4463 
RUGBY 
4465 
44656 
8467 
a468 
@469 
H470 
a4u7a 
4472 
4473 
a474 
§47s 
a4u76 
4477 
4478 
au7g 
A480 
4434 
4482 
4483 
Q4usu 
b485 
4486 
4437 
1438 
443g 
3490 
$494 
huge 
4493 
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RET 
AABS DCX B 
XRA A 
STAX B 
JMP ANEG4 
ASGN CALL ANEG4 
MOV D,B 
MOV E,C 
LDAX B GET EXPONENT 
ORA A 
JNZ ASGN4 
STAX D MAXE ARGUMENT ZERO 
RET 
ASGN4 DCX B 
LDAX B 
ORA A 
LXI H, FPONE 
JZ VCOPY 
LXI H, FPNONE 
JMP VCOPY 
# 
t COMPUTE SIN(X) X=TOP OF ARGUMENT STACK 
# RETURN RESULT IN PLACE OF X 
# 
ASIN CALL QUADC COMPUTE QUADRANT 
LHLD ASTKA 
MOV D,H 
MOV E,L 
LXI B,F TEMP 
CALL AMULS FTEMP=X4X 
POP PSW 
PUSH PSW A=QUADRANT 
RAR 
JC SIN40 QUAD ODD. COMPUTE COSINE 
# COMPUTE X*P(X#xX) -- SINE 
LXI D,FTEM$ 
LHLD > ASTKA 
CALL VCOPY FTEM 4=X*®X 
LXI B, SINX 
CALL POLY P(X®X) 
CALL PREPOP 
LXI H,FTEM4 
CALL AMUL4 - X#®P(X#X) 
# COMPUTE SIGN OF RESULT 
* POSITIVE FOR QUADRANTS 0,4. NEGATIVE FOR 2,3 
® NEGATE ABOVE FOR NEGATIVE ARGUMENTS 
SINS POP PSW QUADRANT 
MOV B,A 
POP PSW SIGN 
RLC : SIGN, 2 TO THE 4ST BIT 
XRA B QUADRANT, MAYBE MODIFIED FOR NEGATIVE ARG. 
LHLD ASTKA 
DCX H PTR TO SIGN 
SUL 2 
RM : QUADRANT 0 OR 4 
INR M ELSE SET RESULT NEGATIVE 
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0A26 C9 Augy RET 
OA27 $495 ® COMPUTE P(X#®X) -- COSINE 
OA27 04 CO 07 4496 SIN10 LXI B,COSX 
OA2A CD 03 OB 4497 CALL POLY P(X*®X) 
OA2D C3 49 OA 4498 JMP SINS 
CA30 4499 #. 
0A30 4500 # COMPUTE COS(X) X=TOP OF ARGUMENT STACK 
0A30 $503 * RETURN RESULT IN PLACE OF x 
' 0A30 4502 * COS(X)=SIN(X+P1/2) 
0A30 4503 * 
OA20 CD 2A 0B 4504 ACOS CALL PREPOP 
OA332 24 CA 07 $505 LXI _H,PIC2 PI/2 
0A36 CD 8D 09 3506 CALL AADD4 TOS=sTOS+PI/2.—sy. 
0A39 C3 ED 09 4507 JMP ASIN 
OA3C 4508 # 
OA3C 9509 # COMPUTE TAN(X) X=TOP OF ARGUMENT STACK 
OA3C 4530 * RETURN RESULT IN PLACE OF X 
OA3C $534 * TAN(X)=SIN(X)/COS(X) 
OA3C 4542 # 
OA2C 2A AC 49 $543 ATAN LHLD ASTKA | 
OA2F CD A7 OC A544 CALL PSHAS PUSH COPY OF X ONTO ARG STACK 
OAX2 CD 30 OA «8545 CALL ACOS COS(X) 
OAU5 33 CA 48 4546 LXI D,FTEM2 
OA48 CD BE OC 4517 CALL POPA4 FTEM2=COS(X) 
OCA4B CD ED 09 4548 CALL ASIN 
OASE CD 2A OB 4549 CALL PREPOP 
OA53 23 CA 38 3520 LXI H,FTEM2 ee | 
OA54 C2 AB OQ 1524 JMP ADIVA SIN(X)/COS(X) 
OA57 $522 % 
OA57 4523 % COMPUTE SQR(X) X=TOP OF ARGUMENT STACK 
OA57 | 4524 # RETURN RESULT IN PLACE OF X 
0A57 4525 # 
OAS5S7 2A 4C 49 4526 ASQR LHLD ASTKA 
OA5A 44 CO 48 9527 LXI D,FTEMP 
OA5D CD 9C 0C 4528 CALL VCOPY SAVE X IN FTEMP 
OA60 $529 # COMPUTE EXPONENT OF FIRST GUESS AS EXPONENT OF X/2 
OA60 2A @C 49 3530 : LHLD ASTKA 
OA63 7E 4534 MOV A,M 
OA64 B7 4532 ORA A 
OA65 CB 4533 RZ ; X=9 
OA66 D6 80 9534 SUI 428 : 
OA68 FA 74 OA 4535 JM SQR5 NEGATIVE EXPONENT 
OA6B OF 4536 RRC 
OA6C EA TF 4537 ANI 427 
OA6E C3 78 OA 3538 JMP SQR6 
OA7& 2F 9539 SQR5 CMA 
OAT2 3C A540 INR A 
0A73 OF 4544 RRC 
OA7T4 E6 TF A542 ANI 427 
OA76 2F 4543 CMA 
OA7TT 3C aSuy . INR A 
OA78 C6 80 3545 SQR6 ADI 428. 
OATA 77 $546 MOV M,A . 
OA7B 4547 * TEST FOR NEGATIVE ARGUMENT 
OA7B 2B $548 DCX H 


OA7TC TE a549 MOV A,M’ 
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OA7TD 04 43 YE 4550 LXI B,'NA’ 
OA80 BT 4554 ORA A | 
0A83 C2 C5 00 $552 JNZ ERROR NEG ARGUMENT 
OA84 4553 ® DO NEWTON ITERATIONS 
OA84 4554 ® NEWGUESS =( X/OLDGUESS + OLDGUESS ) /2 
OA84% 3E 06 4555 MVI A,6 DO 6 ITERATIONS 
CA86 FS £556 SQR20 PUSH PSH SET NEW ITERATION COUNT 
0A87 03 C5 48 4557 iy B,FTEM4 
OA8A #4 CO 48 4558 LXI D,FTEMP  FTEMP IS 'X! 
OA8D 2A 4C 49 1559 LHLD ASTKA GUESS 
 0A90 CD AB 09 1560 CALL ADIVA FTEM1=X/GUESS 
0A93 448 CS 48 4564 LXI D,FTEM4 
OA96 2A 4C 49 1562 LHLD ASTKA. 
OA99 44 4563 MOV B,H 
OAQA 4D 4564 MOV Gils 
OA9B CD 8D 09 4565 CALL AADD4 TOS=(X/GUESS)+4+GUESS 
OASE CD 2A OB 2566 CALL PREPOP 
OAA’ 24 C5 07 4567 LXI H,FPTWO 
OAAU CD AB 09 3568 CALL ADIV4 TOS= (X/GUESS+GUESS)/2 
OAAT Fa 4569 POP PSW 
OAA8 2D 4570 DCR A DECREMENT COUNT 
OAAQ C2 86 OA 4574 JINZ SQR20 DO ANOTHER ITERATION 
OAAC C9 4572 RET 
OAAD 4573 # 
OAAD 1574 3% “COMPUTE RND(X) X=TOP OF ARGUMENT STACK 
OAAD 4575 * FRAND IS UPDATED TO NEW RANDOM VALUE 
OAAD 41576 ® A RANDOM NUMBER IN THE RANGE O<RND<4 IS RETURNED IN PLACE 
OAAD AS77 *# 
OAAD CD 2A OB 4578 ARND CALL - PREPOP 
OABO 24 CF 48 4579 LXI D,FRAND 
OAB3 24 CF 48 4580 LXI H, FRAND 
OAB5 CD Ad 09 1584 CALL AMUL4 TOS=FRAND*FRAND 
OAB9 4582 * SET EXPONENT=0 
OAB9 2A aC 49 1583 LHLD ASTKA . 
OABC 36 80 4584 MVI M,#28 EXPONENT=428 (0 IN EXTERNAL FORM) 
OABE 4585 * PERMUTE DIGITS OF xX AS 
OABE 4586 * 423456 INTO 345642 
OABE 03 FC FF 4587 LXI B, <4 
OAC3 09 1588 — DAD B 
OAC2 U6 4589 MOV B,M SAVE 42 
' QOAC3 23 : 4590 INX H 
QACH 23 4594 INX H 
OACS CD FE OA 4592 CALL PERMU 56242 
OAC8 CD FE OA 4593 CALL PERMU 34=56 
OACB CD FE OA 4594 CALL PERMU 42234 
QACE- . 4595 ® NORMALIZE NUMBER 
OACE 2A 40 49 4595 RNDS5 LHLD ASTKA TOS 
OADS 04 FC FF 4597 LXI B,-FPSIZ+4 
OAD4 09 ~ 4598 DAD B 
OALS5 7E 4599 MOV A,M FIRST DIGIT PAIR 
OAD6 E6 FO 4600 ANI 15#436 
OAD8 C2 F4 OA 4601 JNZ RNDA0 NUMBER IS NORMALIZED 
OADB 8602 ® SHIFT LEFT ONE DIGIT 
OADB 2A 4C 49 1603 LHLD ASTKA 
CADE 7E #604 MOV A,M EXPONENT 


OAur 3y 4605 | DCR A 


PROCE 
& 


OAEO 
OAE3 
CAE6 
OAES 
OAEB 
OAEE 
OAFA 
OAFY 
OAFA 
OAFT 
OAFA 
OAFD 
OAFE 
OATE 
OAPF 
OBOO 
OBO4 
0B02 
0B03 
0B03 
0803 
0803 
0B03 
0B06 
0BO07 
0B08 
0B09 
oBOCc 
OBOC 
OBOD 
0B 10 
0B43 
0B16 
OBW6 
0B149 
OBAA 
OB4B 
OBIE 
OBIE 
OBYF 
0B22 
0B23 
OB2u 
0B25 
0826 
0B29 
OB2A 
OB2A 
OB2A 
OB2A 
OB2D 
OB2E 
OB2F 
0B30 
0B33 
0B3A 
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32 
Cb 
06 
Cb 
CD 
Cb 
C3 
aa 


2A 
CD 


Cg. 


TE 
70 
UT 
2B 
C9 


29 
84 
Ou 
CE 
2A 
9A 
CE 


Cr 
ac 


gc 


OC 


ac 


a7 
%6 


46 
0B 
46 
OA 
a8 


a9 
0c 


a9 


FF 


OB 
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4606 STA EXP 
4607 CALL LOAD TOS INTO TEMP 
4608 MVI B,4 
4609 CALL LEFT S4IFT LEFT 
1610 CALL PREPOP 
16314 CALL STORE 
1612 JMP RND5 _ TEST IF NORMALIZED 
3633 * SAVE NEW RANDM NUMBER IN FRAND CELL °- 
4634 RND1O 1 D, FRAND 
1635 LHLD ASTKA 
4636 CALL VCOPY FRAND=TOS 
1647 RET } 
46418 * PERMUTE PAIR OF DIGIT PAIRS 
1639 PERMU MOV A,M 
4620 MOV M,B 
4624 MOV B,A 
4622 DCX H 
1623 RET 
3624 # 
4625 * EVALUATE P(X) USING HORNERS METHOD (X IS IN FTEMP) 
4626 * COEFFICIENT LIST POINTER IS IN BC 
4627 * RESULT REPLACES NUMBER ON TCP OF ARGUMENT STACK (Y) 
1628 POLY LHLD ASTKA 
4629 XCHG . DE=PTR TO Y 
4630 MOV H,B 
4631 MOV Lc HL PTR TO COFRFFICIENT LIST 
4632. CALL VCOPY YsFIRST COEFFICIENT 
4633 * MULTIPLY BY X 
4634 POLYa PUSH H SAVE COEFF LIST POINTER 
4635 CALL PREPOP 
1636 LXI H,FTEMP 
4637 CALL AMUL4 Y=Y*X 
3638 # ADD NEXT COEFF. 
4639 CALL PREPOP 
4640 POP H 
3643 PUSH H HL=COEFF. LIST POINTER 
1642 CALL AADDA Y=Y+COEFF. 
4643 * BUMP POINTER TO NEXT COEFFICIENT 
1644 POP sid COEFF. POINTER 
1645 LXI B, -FPSIZ=1 
4646 DAD B NEXT COEF SIGN 
3647 MOV A,M | 
1648 INX H PTR TO EXPONENT 
4649 ORA A 
4650 JP POLYS PROCESS NEXT COEFFICIENT 
36514 RET ; NEGATIVE SIGN (-1) - ENDS LIST 
4652 * 
4653 * PREPARE FOR OPERATION , 
4654 # 
1655 PREPOP LHLD ASTKA 
1656 XCHG . DE=ASTKA 
4657 MOV B,D | 
4658 MOV Cx 
4659 RET . 
4660 # 
1664 # QUADRANT COMPUTATION 
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0B34 
0B3a 
0B34 
0B33 
0B34 
0B34 
0B33 
0B 34 
0B 34 
0834 
0835 
0B 36 
0B37 
0338 
0639 
OB3A 
0B 2B 
0332 
OB3E 
O44 
OBuL 
OB47 
OBA 
OBUD 
 0B50 
0853 
0256 
0359 
OB5A 
OB5B 
OBSE 
 OBA4 
OB6u 
OBAT 
OBBA 
OB6D 
0870 
0873 


OB74 


0876 
0877 
0B78 
0B79 
OBT79 
OB7C 
OB7D 
0B80 
0B83 
OB86 
0885 
0B39 
0B8C 
068D 
0599 
0594 
0892 
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POINT TO SIGN 


ARS. SIGN=0 
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94608 


COMPUTE/GETS SIGN OF ARGUMENT, QUADRANT OF ARGUMENT 


TOP OF ARGUMENT STACK HAS INDEX INTO QUADRANT 


PUT SIGN ON STACK, POP RETURN 


PUSH RETURN 


PUT COPY OF ARG. ONTO STACK 


2/PI , 
TOS=X®2/PI 


TCSsINT(X*2/PL) 


ANOTHER COPY 
POP TOS TO DE 


QUADRANT 


TOS=INT(X*2/PI) 
FTEMP=TOS 


TOSsTOS-F TEMP 


A=QUADRANT, LOW ORDER BYTE 


MOD 4 


SAVE QUADRANT ON STACK 


RETURN 


PUTS BACK THE ARG VALUE ON ARG STACK 


GET THE ADDRESS 


GET THE USER ARGUMENT 


RETURN LINK FOR USER ROUTINE 


4662 * POPS TOP OF ARGUMENT STACK 
4663 # 

4664 ® AND INDEX INTO QUADRANT 
4665 *® 

4666 # EXITS WITH: 

3667 *# SP POINTING TO QUADRANT, MOD 4 
He # SP+2 POINTING TO SIGN OF ARGUMENT 
3669 * 

41670 QUADC LHLD ASTKA 
4678 DCX H 

4672 MOV B,M 

4673 XRA A 

4674 MOV M,A 

A675 MOV H,B 

4676 XTHL ‘ 

4677 PUSH H 

1678 ® COMPUTE QUADRANT OF ABS(X) 
2679 LHLD ASTKA 
3680 CALL PSHAS 
4684 CALL PREPOP 
4682 LXI H,PIC4 
4683 CALL AMUL 1 
9684 CALL PREPOP 
4685 CALL AINT 
41636 LHLD ASTKA 
4687 CALL PSHAS 
1688 CALL PFIX 
4689 MOV A,E 

4690 PUSH PSW 

41693 CALL PREPOP 
4692 LXI H,PIC2 
4693 CALL AMUL4 
4694 LXI D,FTEMP 
4695 CALL POPAG 
1696 CALL PREPOP 
4697 LXI H,FTEMP 
1698 CALL ASUB4 
3699 POP PSW 

4700 ANI 3 

4704 POP H 

4702 PUSH PSW 

4703 PCHL : 

1704 * SET UP ARG FOR USER CALL 
4705 AARG CALL PFIX 
1706 XCHG 

4707 SHLD CALLA 
4708 LXI D,FPSIN 
4709 JMP PSHAS 
4740 * USED TO CALL USER ROUTINE 
4744 ACALL CALL PFIX 
W742 LHLD CALLA 
4743 XCHG 

4744 LXI B,ACAL4 
47435 PUSH BD 

41746 PCHL 

1737 ACAL4 LXI D,CALST 
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0B95 Cb FA OD A738 CALL CNS 
0B98 3E OD 4749 MVI A,CR 
OB9A 32 | 4720 STAX D 
OB9B 44 46 49 1724 LXI D,CALST 
OB9E 24 BB $8 $722 LXI H,FPSIN 
OBAI CD 57 42 1723 CALL FPIN 
OBA 34 BB 38 4724 LXI D,FPSIN' 
OBA7 C3 A8B OC 4725 JMP PSHA4 PUT THE RETURNED USER VALUE ON ARG STACK 
OBAA 4726 # 
OBAA A727 # INT FUNCTION ACTION ROUTINE 
OBAA | 4728 # 
OBAA OA 9729 AINT LDAX B 
G@BAB D6 84 4730 SuI 429 
OBAD F2 B3 OB 4724 JP AINTS 
' OBBO 4732 * ZERO IF VALUE LESS THAN ONE 
OBBO AF ' $733 XRA A | 
OBB4 02 A73u STAX B 
OBB2 C9 49735 RET 
OBB3 4736 * EXP > O 
OBB3 D6 05 4737 AINT& |. SUL FPNIB-1 
OBBS DO 1738 _ RNC 
OBB6 57 4739 MOV D,A COUNT 
OBB7 OB 4740 DCX B 
OBB8 OB 1742 AINT2 DCX B 
OBB9 OA 4742 LDAX B 
OBBA E6 FO 4743 ANI 360Q 
OBBC 02 a7uu STAX B 
OBBD 44 3745 INR D 
OBBE C " 4746 RZ 
OBBF AF 4747 XRA A 
OBCO 02 4748 STAX B 
OBC3 44 a 4749 INR D 
OBC2 C2 B8 OB 41750 JNZ AINT2 
OBC5 C9 4754 RET 
OBC6 A752 # 
OBC4 4753 # DIMENSION MATRIX 
OBC4 4754 # SYMTAB ADDRESS IN HL, HL NOT CLOBBERED 
OBC6 4755 ® DE CONTAINS SIZE IN NUMBER OF ELEMENTS 
OBC6 4756 * 
OBCE& ES 4757 DIMS PUSH H 
OBCT 43 | 4758 INX D 
OBC8 DS 4759 PUSH D 
OBCS 23 00 00 1760 LXI H,0 
OBCC OF O05 41764 MVI © C,FPSIZ 
OBCE CD 48 OD 4762 CALL RADD MULTIPLY NELTS BY BYTES PER VALUE 
’" OBDG EB’ a. $763 XCHG 
OBD2 2A JE ag 4764 LHLD MATA 
OBD5 E5 | 3765 PUSH H 
OBD6 49 4766 DAD D 
O0BD7 CD E2 0C 4767 CALL STOV CHECK THAT STORAGE NOT EXHAUSTED 
OBDA 22 JE ag 3768 SHLD MATA -  UPDATA MATRIX FREE POINTER 
OBDD C4 4769 POP B BASE ADDR 
OBDE D4 4770 PoP — Dp NELTS 
OBDF Ea A774 POP H., ° STMTAB ADDR 
OBEO 5 - 772 PUSH H 


OBE 72 4773 MOV M,D 
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OBE2 2B 4774 DCX H 
OBE3 73 4775 MOV M,E 
OBE 2B 4776 DCX H 
OBES 70 4777 MOV M,B 
OBE6 23 4778 DCX H 
OBE? 74 4779 MOV M,C SYMTAB ENTRY NOW SET UP 
OBES F3 4780 POP H 
OBE9 C9 4784 RET 
OBEA 4782 # 
OBEA 1783 # FIND VARIABLE OPTIONALLY SUBSCRIPTED IN TEXT 
OBEA 1784 * SETS CARRY IF NOT FOUND 
OBEA 4785 * RETURNS ADDRESS OF VARIABLE IN HL 
OBEA 4786 ® UPDATES TXA IF FOUND 
OBEA A787 # | 
OBEA CD 80 0G 4788 VAR CALL ALPHA | 
OBED D8 4789 RC 
OBEE CD 4D OC 4790 CALL NAME2. . 
OBF4 CD 02 OD 4794 CALL GO ee: 
OBFY FE EO 3792 CPI LPARRW. 
OBF6 CA FE OB 4793 JZ VARA. - TEST IF SUBSCRIPTED 
OBFQ | 4794 ® MUST B& SCALAR VARIABLE 
OBF9 Cb 58 OC 4795 CALL STLK - ~—- RETURNS ENTRY ADDRESS IN HL 
OBFC B7 4796 ORA A _ CLEAR CARRY 
OBFD C9 4797 RET | 
- OBFE 4798 * MUST BE SUBSCRIPTED 
OBFE Cb OA OD 41799 VAR CALL GCI GOBBLE LEFT PAREN 
0CO2 3E 80 4800 MVI A, 200 
0C03 B34 : $804 ORA C : 
OCOu uF 4802 MOV C,A SET TYPE TO MATRIX 
0C05 Cb 58 OC 4803 CALL STLK 
0CO8 E5 4804 PUSH H SYMBOL TABLE 
-0CO9 44 0A 00: 4805 LX D,40 DEFAULT MATRIX SIZE | 
OCOC DC C6 OB 4806 CC DIMS DEFAULT DIMENSION MATRIX 
OCOF Cb D7 05 4807 CALL EXPRB EVALUATE SUBSCRIPT EXPRESSION 
0C42 Cb BA OD 4808 CALL PFIX DE NOW HAS INTEGER 
0C45 06 29 1809 MVI B,')! 
OC47 CD FA OC 4810 CALL , EATC GOBBLE RIGHT PAREN 
OC1A E4 4844 POP H 7 
OC4B 2B 1812 DCX H | 
OCaC CD 35 OD 4843 CALL DCMP BOUNDS CHECK INDEX 
OCIF D2 BC 00 4844 INC ES 
0C22 2B 4845 DCX H 
0C23 2B 1846 DCX H | 
Oc2u CD 40 OD 1837 CALL LHLI GET BASE ADDR | 
0C27 OF 05 4818 MVI C,FPSIZ 7 
0C29 43 4839 INX D BECAUSE BASE ADDR IS TO ELEMENT <4 
O0C2A CD 48 OD 4820 CALL RADD ADD INDEX, CLEAR CARRY 
Oc2D Cg 4824 RET 
OC2E 4822 # 
OC2E 4823 * JUNK ON END OF STATEMENT, TEST IF AT END OF FILE 
OC2E 9824 # DOES NOT CLOBBER DE 
OC2E 4825 # EATS CHARACTER AND LINE COUNT AFTER CR 
OC2E 1826 * LEAVES NEW TXA IN HL 
OC2E 4827 ® SETS CARRY IF END OF FILE 
OC2E 4828 * 
OC2E CD OA OD 4829 JOE CALL GCr 
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0C34 FE 33 4830 CPI ret 
0C33 .C 4834 RZ 
0C34 FE OD 4832 CPL CR 
0C36°C2 AA 00 4833 INZ Ea 
0C39 7E 4834 MOV A,M 
OC3A 3D 4835 DCR A 
0C3B CA 45 OC 4836 JZ JOE2 
OC3E 23 4837 INX H 
0C3F 23 4838 INX H 
OCkO 23 1839 INX H SKIP OVER COUNT AND LINE NUMBER 
0C43 22 95 47 4840 JOES SHLD TXA 
OCuL Cg 4844 RET | 
OC4S5 37 4842 JOE2 STC 
OC46 C3 43 0C 4843 JMP JOEA 
OCug 4844 & 
Oc4g 4845 * GET NAME FROM TEXT 
oc4g 4846 * SETS CARRY IF NAME NOT FOUND 
cug 4847 * IF SUCCEEDS RETURNS NAME IN BC, C=O IF NO DIGIT IN NAME 
0C49 CD 80 OC 4848 NAME - CALL ALPHA 
- OCHC D8 4849 RC 
OCLD 47 4850 NAME2 MOV B,A 
OCUE OF 00 38514 MVI C,0 
0C50 CD 8D OC 4852 CALL DIG 
0C53 3F 4853 CMC 
oC54 DO a85u RNC 
0C55 uF 4855 MOV CA 
0C56 B7 4856 ORA A CLEAR CARRY 
0C57 Cg 4857 RET , 
0C58 4858 * 
0C58 4859 # SYMBOL TABLE LOOKUP 
0C58 4860 # BC CONTAIN NAME AND CLASS 
0C58° 4864 ® IF NOT FOUND THEN CREATE ZERO'ED ENTRY AND SET CARRY 
0C58 4862 * HL HAS ADDRESS ON RET 
0C58 4863 # 
OC58 2A 52 a9 4864 STLK LHLD MEMTOP 
OCS5B 44 F9 FF 9865 LXI D,-STESIZ SET UP BASE AND INCREMENT FOR SEARCH LOOP 
OCSE 7E 1866 STLKO MOV A,M 
OCSF BT 4867 ORA A | 
OC60 CA 72 0C 4868 JZ STLK2 TEST IF END OF TABLE 
0C63 B8 4869 CMP B 
OC6u C2 6E OC 3870 INZ STLK4 TEST IF ALPHA COMPARES 
OC67 2B 4874 DCX H | 
0C68 7E 4872 MOV A,M LOOK FOR DIGIT 
0C69 BY | 4873 CMP c 
OC6A 2B 4874 DCX H 
0C6B C8 4875 RZ CARRY CLEAR 00 RET 
OChC 23 3876 INX H 
OC6D 23 4877 INX H 7 
OC6E 49 4878 STLK} DAD D DIDN'T COMPARE, DECREMENT POINTER 
OC4éF C3 5E 0C 4879 JMP STLKO 
0C72 1880 * ADD ENTRY TO SYMTAB 
0C72 70 4883 STLK2 MOV M,B 
0C73 2B 4882 DCX H 
—Oc7u 7% 4883. MOV M,C 
0C75 23 1883 INX H 


OC76 EB 4885 XCHG 
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OCTT 
0C78 
0C7B 
OC7C 
OC7D 
OCTE 
OC7TF 
0C 80 
0C&0 
0C80 
0c 80 
0c80 
0C80 
0083 
0C85 
0C 86 
0088 


0C89 i 


OCBA 


oc 8p 


OC8D 
OC8D 
OC 8D 
0C90 
0C92 
0093 
0C95 
0095 
0C97 
0098 
0C92 
OC9C 
ocgc 
OC9C 
Ocgc 
ocgc 
OC9E 
ocg? 
OCAO 
OCAa 
OCA2 
OCA3 
OCA6 
OCAT 
OCAT 
OCAT 
OCAT 
OCAT 
OCA8 
OCAB 
OCAE 
OCAF 
0cB2 
0CB3 
OCB 
0CB8 
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u4 


5B 


95 


05 


rn 
\ 


FB. 


4C 


9c 
04 
93 


OD 


OC 


37 


oc 


EY 
49 


tT 


&& 


* NEXT CHAR IN ACC ON FAILURE 
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STA 


GC 
At 


1Z' 44 


DIGT4 


STORE NEW END OF STMTAB POINTER 


® GOBBLES NEXT TEXT CHARACTER IF ALPHABETIC 


* GOBBLES NEXT TEXT CHAR IF DIGIT 


* NEXT CHAR IN ACC ON FAILURE 


GC 
1O! 


#  COPYS FPSIZ BYTES AT ADDR HL TO ADDR DE 


* ON EXIT HL POINTS TO ADR-14 OF LAST BYTE COPIED 


# 
# PUSH VALUE ADDRESSED BY HL ONTO ARG STACK 
z 


CLEARS CARRY 
ASTKA 
B, -FPSIZ 
B 
ASTKA 


vCOPY 
A,a 


5 
4886 DAD 
4887 SHLD 
4888 DCX 
4889 DCX 
3890 XCHG 
4894 STC 
4892 RET 
41893 # 
9894 
4895 ® SETS CARRY IF NOT 
4896 
4897 # 
4898 ALPHA CALL 
4899 CPL 
ag900 RC 
8904 CPL 
4902 CMC 
4903 RC 
3904 JMP 
$905 
2906 * SETS CARRY IF NOT 
4907 
4908 DIG CALL 
a909 CPL 
4910 RC 
49143 CPL 
4942 CMC 
4943 RC 
4944 DIGTS INX 
a4925 SHLD 
4946 RET 
4917 * 
4918 
4919 
4920 # 
#924 VCOPY MVI 
4922 VCOP4 MOV 
4923 STAX 
4924. DCX 
4925 DCX 
4926 DCR 
4927 JNZ 
4928 RET 
4929 
4930 
4934 SETS ARGF, 
4932 # 
4933 PSHAS XCHG 
4934 PSHA’ LHLD 
m9 35: LXI 
4936 DAD 
4937 SHLD 
4938 XCHG 
4939 CALL 
A9uo. MVI 
4944 STA 


ARGF 


DECREMENT ARG STACK POINTER 


CLEAR ARG? 


PAGE 


35 


PROCESSOR TECHNOLOGY BASIC 


#* COPYRIGHT 4976 


OCBB 
OCBC 
OCBD 
OCBD 
OCBD 
OCBD 
OCBD 
OCBE 
occa 
0CC2 


OCC5 . 


0CC6 
occg 
OCCA 
OCCD 
OCCb 
OCCb 
OCCD 
OCCD 
OCCD 
0CDO 
Ocbs 
OCve2 
OCD5 
0c D4 
OC LI 
OCDC 
OCir 
OCEO 
OCES 
OCE2 
OCE2 
OCE2 
OCE2 
OCE2 
OCE2 
OCE3 
OCE6 
OCEYQ 
OCEC 
OCEF 
OCF2 


OCF3 | 


OCF4 
OCF7 
OCA 
OCFA 
OCFA 
OCFA 
OCFA 
OCFD 
OCFE 
OCFF 
OD02 
Ov02 
OD02 


BT 
C9 


1E 
35 
Fu 
B3 
33 


uP 


C5 


OA 


AA 


00 
ag 


“OD 


00 


& % 
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1942 ORA A CLEAR CARRY 
1943 RET 

aguu # 

agus # POP ARG STACK 

1946 # HL CONTAINS ADDRESS TO PUT POPED VALUE AT 
AG4UT # 

4948 POPAS XCHG 

3939 POPAG LHLD ASTKA 

4950 PUSH H 

1951 LXI B, FPSIZ 

4952 DAD B 

1953 SHLD ASTKA INCREMENT STACK POINTER 
ag95u POP H 

3955 JMP VCOPY 

1956 # 

4957 # PUSH FRAME ONTO CONTROL STACK 

1958 * TAKES MINUS AMOUNT TO SUB FROM CSTKA IN DE 
4959 * DOES OVERFLOW TEST AND RETURNS OLD CSTKA-4 
1960 * 

3964 PSHCS LHLD CSTKA 

1962 PUSH H . 

3960 DAD D 

1964 SHLD CSTKA 

1962 XCHG 

1962 LXI H,LCSTKA ADDR CONTAINS CSTKL 
4964 CALL DCMP 

4965 Jc Bu 

1966 POP H 

1967 DCX H 

1968 RET 

1969 # 

4970 * STORAGE OVERFLOW TEST 

1974 * TEST THAT VALUE IN HL IS BETWEEN MATA AND STA 
4972 * DOES NOT CLOBBER HL | 

8973 # 

4974 STOV XCHG 

1975 LXI H,MATA 

4976 CALL DCMP 

A977 JC F8 

4978 LXI H, STA 

4979 ChE DCMP 

4980 XCHG 

41984 RC 

1982 E8 LXI B,'SO! 

1983 JMP ERROR 

1984 # 

1985 * INCREMENT TXA IF NEXT NON-BLANK CHAR IS EQUAL TO B 


4986 
1937 
19388 
3939 
4990 
4993 
4992 
#993 


499h 


® ELSE SYNTAX ERROR 


& 
KATC 


tf 


CALL 
CMP 
RZ 
JMP 


GCI 
B 


Eé 


# GET NEXT NON-BLANK CHAR INTO ACC 
* INCREMENT PAST BLANKS ONLY 
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0D02 4995 # 
0002 CD OA OD 4996 GC CALL GCI 
ODO5 2B 1997 DCX H 
OD05 22 95 47 4998 SHLD TXA 
OD09 C9 4999 RET 
ODOA 2000 # 
ODOA 2004 *# GET NEXT NON-BLANK TEXT CHAR AND INCREMENT TXA 
ODOA 2002 * DOES NOT CLOBBER DE, BC 
ODOA 2003 * RETURN CHAR IN ACC 
ODOA 2004 # 
ODOA 2A 95 a7 2005 GCI LHLD TXA 
ODOD 7E 2006 GCI1O NOV A,M 
ODOE 23 2007 INX H 
OLOF FE 20 2008 CPL rot 
0D43 CA OD OD 2009 Jz GCIO 
ObDAu 22 95 47 20140 SHLD TXA 
Ob47 C9 2044 RET 
0D48 2032 # 
0Da8 2013 # REPEAT ADD 
0048 . 2014 * ADDS D& TO HL C TIMES 
0D48 2035 # 
0ba8 49 2036 RADD DAD D 
Ob49 OD 2047 DCR C 
. ODAA C2 48 OD 2048 JNZ RADD 
ObadD COC 2049 RET 
ODE 2020 # 
ODIE 2024 * PRINT MESSAGE ADDRESSED BY HL 
OD4ae 2022 * ENDS WITH CHARACTER PROVIDED IN C 
OD4E 2023 *# RETURN IN HL ADDRESS OF TERMINATOR 
QDIE 2024 # 
_ QODSE OF OD - 2025 PRNTCR MVI C,CR 
0D20 C3 25 OD 2026 JMP PRN4 
0022 OF 22 2027 PRNT MVI ce, tus 
0D25 7E 2028 PRN4 MOV A.M GET NEXT CHAR 
OD26 47 2029 MOV B,A FOR CHOUT 
OD27 B9 2030 CMP C END OF MESSAGE TEST 
0D28 CB 2031 RZ ° 
0D29. FE OD 2032 CPL CR : 
0b2B CA AA 00 2033 JZ EA NEVER PRINT A CR IN THIS ROUTINE 
OD2E Cy 95 OF 2034 CALL CHOUT 7 
0D34 23 2035 INX H 
OD32 C3 25 OD 2036 JMP PRN4 
0D35 2037 # . 
0D35 2038 # 46 BIT UNSIGNED COMPARE 
0D35 2039 * COMPARE DE AGAINST VALUE ADDRESSED BY HL 
0D 35 2040 # CLOBBERS A ONLY 
0D25 2044 * 
0035 78 2042 DCMP MOV A,E 
0D36 96 2043 SUB M 
Ov327 23 204u4 INX H 
OD38 7A — 2QUSs MOV A,D 
0b29 9E 2046 SBB M 
OD2A 2B 2047 DCX H 
OD23B CO 2048 RNZ 
OD2C 73 20u9 MOV A,E 
Ob2D 96 2050 SUB M 


OD84 O41 KE UC 2406 


PROCESSOR TECHNOLOGY BASIC 5 
#* COPYRIGHT 1976 ## 

Ov3E B7 205% 
Ob3r C9 2052 
OD4O 2053 * 
ObD4O: 2054 # 
OD40 2055 * 
OD40 FS 2056 LHLI 
Ob44 7E 2057 
OD42 23 2058 
OD43 66 2059 
Op4u 6F 2060 
Ob45 Fa 2064 
OD46 C9 2062 
OD47 2063 * 
OD47 2064 # 

— ODN 2065 * PUS 
OD47 2066 * SET 
CD47 2067 * 
OD47 2A 95 AT 2068 CONST 
OD4A EB 20469 

- OD4B 24 BB 18 2070 
OvV4E Cb 57 12 2078 
0D53 D8 2072 
Ov52 4B 2073 
ObD53 EB 2074 
OD54 22 95 47 2075 
0D57 14 BB 48 2076 
OD5A CD A8 OC 2077 
OD5D AF 2078 
OD5E 3C 2079 
Ov5r 32 93 47 2080 
OD62 C9 2084 
CD63 - 2082 # 
0D63 2059" “D1 
063 2084 # 
0D63 3A 94 47 2085 DIRT 
0b66 BT 2036 
OD457 C8 2087 
ODE8 04 49 UU 2088 
Ov6B C3 C5 00 2089 
ODEE 2090 # 
ODEE 209% # 
OD6E 2092 * RET 
OD5E 2093 * 
OD6E 2A 50 39 2094 FINDL 
Ob74 06 00 2095 
OD73 4E 2096 FIND4 
OD74 79 2097 
Ov75 FE 04 2098 
OD77 CA 84 OD 2099 
ODTA 23 2400 
OD7B Cb 35 OD 2i03 
ODTE 2B 2402 
OD7F C8 2403 

 0D80 09 2404 
Ov84i C3 73 OD 2405 

LERR 
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ORA A 


CLEAR CARRY 
RET | 


INDIRECT LOAD HL THRU HL 


PUSH PSW 
MOV A.M 
INX H 
MOV H,M 
MOV L,A 
POP PSW 
RET . 
GET FP CONSTANT FROM TEXT ; 


HES VALUE ON ARG STACK AND SETS ARGF FLAG 


S CARRY IF NOT FOUND 
LHLD TXA PREPARE CALL FPIN 
' XCHG 
LXI H, FPSINK 
CALL FPIN 
RC 
DCX D- 
XCHG 
SHLD TXA NOW POINTS TO TERMINATOR 
LXI D,FPSINK 
CALL PSHA4 
XRA A 
INR A SET A TO 4 AND CLEAR CARRY 
STA ARGF 
RET 
RECT STATEMENT CHECKING ROUTINE 
LDA DIRF 
ORA A 
RZ 
LXI B,‘DI' 
JMP ERROR 


FIND TEXT LINE WITH LINE NUMBER GIVEN IN DE 


URNS TEXT ADDRESS COUNT BYTE IN HL 
N  LHLD BOFA 
MVI B,O 
MOV C,M 
MOV AC 
CPI EOF 
IZ LERR 
INX H 
CALL DCMP 
DCX H 
RZ 
DAD B 
JMP FIND4 


LXI B,'LN! 
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0b87 C3 C5 00 © 2407 JMP ERROR 
OD8A 2408 # | 
OD8A 2409 * FIX FLOATING TO POSITIVE INTEGER 
ODBA 2440 * RETURN INTEGER VALUE IN DE 
OD8A 2413 * FP VALUE FROM TOP OF ARG STACK, POP ARG STACK 
OD8A 2442 8 
OD8A 2A 4C 49 2a2a3 PFIX LHLD ASTKA 
OD8D 44 2444 MOV B,H 
OD8E AD 2445 MOV C,L 
OD8F E5 2446 PUSH H 
0090 CD AA OB 2447 CALL AINT 
0093 23 BB 438 2448 LXI H,FPSINK 
0096 CD BD OC 2439 CALL POPAS. 
0U99 £4 2420 POP H 
OLSA UE 2424 MOV CM EXPONENT 
Ob9B 2B 2122 DCX H 
OU9C 7E 2423 MOV A,M- SIGN 
Ob9D B7 2d24 ORA A 
OD9E C2 BC 00 2425 JNZ ES NEGATIVE NO GOOD 
OLA# 411 FC FF 2426 LXI D,-FPSIZ+4 
ODA4Y 49 2427 DAD D 
OLVA5 44 00 00 2428 LXI D,O 
ODA8 79 2429 MOV A,C 
OLAY BT 2330 ORA A 
ODAA C8 2331 " RZ 
ODAB Ov 2432 DCR C SET UP FOR LOOP CLOSE TEST 
OvAC 23 2433 PFIX4 INX H 
ODAD 7E 2434 MOV A,M 
OLAE OF 2435 RRC 
OvAF OF 24 36 RRC 
OuBo OF 2437 RRC 
ODBa OF 2438 RRC 
ODB2 CD C& OD 2839 CALL MUL 40 
O0bB5 DA BC 90 2440 JC E5 
ODB8 Ob 24u4 DCR C 
ODB9 FO 2442 RP 
ODBA 7E 2443 MOV A,M 
ODBB CD C6 OD 2444 CALL MUL 40 
OLBE DA BC 00 2gus5 JC F5 
ObC4 OD 2446 DCR C 
' ODC2 FA AC OD 244T JM PFIXd 
OvC5 Cg 2448 RET | 
ObC6 2jug # 
ODC45 2450 * TAKE NEXT DIGIT IN A (MASK TC 47Q), ACCUMULATE TO DE 
0DC45 2454 * PRESERVES ALL BUT A, DE 
ODC6 2452 * 
ODC4H ES 2453 MUL40 PUSH H 
ODC7T 33 2454 INX SP 
ODC8 33 2455 INX SP 
ObC9 42 2456 MOV H,D GET ORIGINAL VALUE TO HL 
ODCA 6B 2457 MOV L,E 
ODCB 29 2458 DAD H DCUBLE IT 
Ovcc v8 2459 RC 
OUCD 29 2360 DAD H ACAIN 
OLDCE D8 24614 RC 
QDCF 49 2462 DAD D PLUS ORIGINAL MAKES 5 TIMES ORIG 


PROCE 
% i 


ODDO 
ODD4I 
ODD?) 
OvdD3° 
ODD4 
ODD5 
ODD6 
ODDT 
ODDI 
QDDA 
ODUB 
ODDC 
OvuDE 
OvvF 
ODEO 
ODEO 
ODEO 
ODEO 
ODEO 
- CDEO 
ODEO 
ODE 3 
ODEU 
ODE7 
ODEA 
ODED 
ODEE 
ODEF 
ODFO 
ObFa 
ODF 3 
ODF6 
ODr9 
ODFA 
ODFA 
ODFA 
ODrA 
OuFA 
OUFA 
ODeB 
ODFE 
OEO3 
OEO4 
O07 
OFOA 
OEOD 
OF4O 
OFS3 
OE 46 
OEI9 
OEWA 
OFAC 
OE ID 
OEE 
OEAF 
OF &F 
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Cb 
VES) 
48 
C3 
Cb 
62 
6B 
ar 
DO 
bd 
Cbd 


“D2 


C9 


AF 
07% 
CD 
04 


Cb 


04 
on) 
04 
Cv 
0% 
CD 
CO 
3E 
a2 
13 
Cg 


OF 


00 


0c 


00 
Ov 
OC 


OD 
OD 


D8 
Of 
FC 
OF 
EE 
OF 
Pe 
OF 
EE 
OE 


# &% 


2163 
2464 
2465 
2166 
2467 
2468 
2469 
2470 
2474 
2472 
2473 
2474 
2475 
2476 
2377 
2478 
2479 
2180 
2484 
2482 
2483 
2488 
2485 
2486 
2487 
2188 
2189 
2490 
2494 
2492 
2193 
2494 
2495 
2396 
2197 
2498 
2499 
2200 
2e0% 


2202 


2203 
2204 
2205 
2206 
2207 
2208 
2209 
2230 
2244 
2242 
2243 


224 


2245 
2286 
2247 
2238 


% 
% 


# 
INTGE 


INTG) 


INTG2 


% 
# 


CNS 


MOV 
ACI 
MOV 
RET 


& 


H 
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TIMES TWO MAKES TEN 


PROPOGATE THE CARRY 


GET INTEGER FROM TEXT 
* SET CARRY IF NOT FOUND 

* RETURN INTEGER VALUE IN HL 
* RETURN TERMINATOR IN ACC 


R CALL 
RC 
LXI 
JP 
CALL 
MOV 
MOV 
CMC 
RNC 
SUI 
CALL 
JNC 
RET 


DIG 


D,.0 
INTG 
DIG 
H,D 
L,E 


"Or 


2 


MUL 40 


INTG 


1 


CONVERT INTEGER TO STRING . 

* DE CONTAINS ADDRESS OF STRING, RETURN UPDATED VALUE IN DE 
* HL CONTAINS VALUE TO CONVERT 

# 


XRA 
Lil 
CALL 
LXI 
CALL 
LXI 
CALL 
LXI 
CALL 
LXI 
CALL 
RNZ 
MVI 
STAX 
INX 

RET 


A 

B,-4 
RSUB 
B,-4 
RSUB 
B,-3 
RSUB 
B,-4 
RSUB 
B,-1 
RSUB 


A,'0 
D 
D 


TAKE VALUE IN HL 


SaT FOR NO LEADING ZEROES 
0000 


000 
00 
0 


40 
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OE73 23 2274 
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SUB MINUS NUMBER IN BE THE MOST POSSIBLE TIMES 


IF A=0 THEN DONT PUT ZERO ON STRING 


# 
* PUT VALUE ON STRING AT DE 
a 
& 


RETURN NON-ZERO IN A IF PUT ON STRING 


OFA 2249 

OF@F 2220 

OE AF 2224 

OE SF 2222 
. QOEGF 2223 # 

OFSF v5 2224 RSUB 

OF20 46 FF 2225 

OE22 E5 2226 RSUB4 

OF23 33 2227 

OF24 33 2228 

OF25 44 2229 

OF26 09 2230 

OF27 DA 22 OF 223% 

OF2A 3B 2232 

OE2B 3B 2233 

OE2C Ea . 2234 

OF2D 42 2235 

OE2E Da 2236 

OE2F 80 2237 

OF30 C8 2238 

OE32 3E 30 2239 

OE33 80 2240 

OE34 32 2244 

QOF35 43 2242 

CE36 C9 2243 

OF 37 2244 # 

0837 22u5 # 

OF 37 2246 ® 

OE37 Cb 90 OE 2247 INCHAR 

OE3A CA 37 OF 2248 
-OF3D DB 04 2249 

OF3F E6 7FP 2250 

OF4) FE 03 . 2254 

OF43 CA 62 00 2252 

OF46 FE OA 2203 

OE48 CA 37 OF 2254 

OEF4UB FE 00 2e0D 

OE4D CA 37 OE. 2256 

OE50 47 2257 

OF53 CQ 2258 

OE52 2259 * 

OF52 Cb 40 40 2260 INLO 

OF55 24 D2 48 2264 INLINE 

O£58 OF 49 2262 

CE5A Cb 37 OF 2263 INLA 

UESD FE Sf 2264 

OE5¥% CA TE OE 2265 

OE462 77 2266 

CE453 CD 95 OF 2267 

OF65 78 2268 

OE467 FE 40 2269 

OF69 CA 52 OF 2270 

OF6C 06 OA 2274 

Of6E FE Ob 2272 

OE70 CA 95 OE . cers 


PUSH 
MVI 
PUSH 
INX 
INX 
INR 
DAD 
JC 
DCX 
DCX 
POP 
MOV 
POP 
ORA 
RZ 
MVI 
ADD 
STAX 
INX 
RET 


CALL 
JZ 


D 
D,-4 
H 


<P 


SP 


STATUS 
INCHAR 


0 
INCHAR 
B,A 


CRLF 
H, IBUF 
_C, LINLEN 
INCHAR 
5FH 
INL2 


A GETS 0 IF A WAS O AND B IS 0 


INPUT CHARACTER FROM TERMINAL 


LCOP UNTIL CHAR RECEIVED 


IGNORE LINE FEEDS 
IGNORE NULLS 


DELETE 

3CHO 

LINE DELETION 

IN CASE WE ARE DONE 
DO LF THEN RETURN 


PAGE 


RA 


PROCESSOR TECHNOLOGY BASIC 
#*® COPYRIGHT 3976 ## 


OE74 OD 2275 
0E75 C2 5A OE 2276 
0£78 04 UC 4c 2277 
OF7B C3 C5 00 2278 
OE7E 79 2279 
OE7F 06 07 2280 
0&814 FE 49 2284 
0£83 CA 8A OE 2282 
O£86 06 5F 2283 
OF88 2B 2284 
0£89 OC 2285 
OE8A CD 95 OF 2286 
OF8D C3 5A OF 2287 
0£90 2288 
0£90 DB OO 2289 
0592 E6 uO 2290 
OE94 Cg 2291 
0E95 2292 
0E95 2293 
0£95 2294 
0£95 2295 
O£95 DB FF 2296 
OF97 aF 2297 
0£98 DA ES OF 2298 
OF93 2299 
OF 9B 2300 
O£9B 2301 
OE9B 2302 
O£9B 2303 
O£93 78 2304 
O£E9C FE 7F 2305 
OE9E C8 2306 
ORO? FE O07 © 2307 
OFAd CA E& OF 2308 
OFAL 2309 
OEAL 2340 
OFA 2344 
OFA 2342 
OFAU 2313 
OEAU E5 2344 
OFA5 D5 2345 
OFA6 C5 2346 
OFAT 3A 45 49 2347 
OFAA 67 2348 
OEAB 2E 80 2349 
OEAD CD G3 OE 2320 
OEBO AF | 2324 
OES4 2B 2322 
OEB2 BC | 2323 
OFB3 C2 Ba OF 2324 
OEB6 Ca 2325 
OEB7T C5 2326 
OF88 78 2327 
CEB9 CD 03 OF 2328 
OEBC Ca 2329 
OEBD Da 2330 


=e ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 


PROCESSOR TECHNOLOGY CORP. 
5 6200 HOLLIS STREET 


EMERYVILLE, CALIF. 94608 PAGE 
DCR c 
INZ INL@ 
LXI B,'LL! 
JMP ERROR 
INL2 MOV A,C 
MVI B, BELL 
CPI LINLEN 
JZ INL3 
MVI B, 5FH 
DCX H | 
INR C 
INL3 CALL CHOUT 
JMP INL4 
3% 
STATUS IN 0 
ANI LOH 
RET 
# 
* OUTPUT ROUTINES 
* SENSE SWITCH 4 (A8) CONTROLS VDM OR STANDARD TERMINAL 
: | 
CHOUT IN OFFH GET SENSE SWITCH INPUT 
RAR 
JC TEROT SWITCH UP IS STANDARD TERMINAL 
# 
& 
# OUTPUT DRIVER FOR PROCESSOR TECHNOLOGY VIDEO DISPLAY 
* MODULE. SEE VDM MANUAL FOR ADDITIONAL CODE COMMENTS 
ALSOU = MOV A,B 
CPI TFH 
RZ 
CPL - BELL 
JZ TEROT "DING" GOES THE STANDARD TERMINAL 
# 
# THIS ROUTINE ALLOWS AN OUTPUT RATE SELECTABLE FROM 
# THE KEYBOARD BETWEEN THREE CHARACTERS PER SECOND 
# TO APROX 2000 LINES PER MINUTE. 
: | 
TIMER PUSH H 
PUSH D 
PUSH B : 
LDA SPEED GET DELAY TIME 
MOV H,A 
MVI L, 80H 
CALL NUMCK SEE IF NEW SPEED IS WANTED 
XRA A 
TIME DCX H : 
CMP H ZERO YET? 
JNZ TIME 
POP B _ GET BACK CHR 
PUSH B | 
MOV A,B 
CALL SCOUT OUTPUT CHR TO SCREEN 
POP BO 
POP D 


2 


salad ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 
PROCESSOR TECHNOLOGY CORP. 


PROCESSOR TECHNOLOGY BASIC § 6200 HOLLIS STREET 
#® COPYRIGHT 4976 ** . EMERYVILLE, CALIF. 94608 PAGE 

OEBE Ed 2334 POP H 
OEBF 78 2332 MOV A,B 
OECO C3 EE OF 2333 JMP CHCHK-: NOW PROCESS THE REST 
OEC3 2334 % 

- QEC3 2335 * CHECK FOR TIMER CONTROL VALUE 
0EC3 2336 # 
OFC3 3A 3F a9 -2337 NUMCK LDA BRKCHR 
CECH 47 2338 MOV B,A 
CECT B7 2339 ORA a. 
CFC8 CC 90 OF 2340 CZ STATUS 
OECB CA D3 OF 2344 JZ NINP 
OECE DB O04 2342 IN 4 
OEDO E6 7F 2343 ANI 7FH 
OED2 47 2344 MOV B,A 
OED2 78 2345 NINP MOV A,B 
CEL4 BT . 2346 NUMC2 ORA A 
O£DS5 C8 2347 RZ ; NO NEW INPUT VALUE 
OEL6 FE 2A 2348 CPL 'gt44 | 
OFD8 D2 F2 OF 2349 JNC WAIT 
OFDB FE 34 2350 CPI tg 
OELDD DA F2 OF 2354 JC WAIT 
CEEO £6 OF 2352 ANI OFH REMOVE ASCII BIAS 
OEE2 uF 2353 MOV C,A SAVE DELAY NUMBER 
OFE3 AF 2354 XRA A 
OFE4 37 2355 STC : INITIALIZE DELAY BIT IN CARRY 
OEE5 32 45 49 2356 LESS STA SPEED 
CEE8 17 2357 RAL 
OEEQ OD 2358 DCR C 
OFEA C2 E5 OF 2359 JNZ LESS 
OEED AF 2360 CBRK XRA oA 

 OFFE 32 3F 49 2264 SBRK STA BRKCHR 
OEFS C9 | 2362 RET 
OEF2 2363 # 
OFF2 FE 20 : 2364 WAIT CPI 20H 
OEF4Y DA EE OF 2365 JC SBRK 
OEF7 C2 ED OF 2366 JNZ CBRK 
OEFA Cb 90 OE 2367 WAIT2 CALL STATUS WAIT FOR KEYBOARD INPUT 
OEFD CA FA OE 2368 JZ WAIT2 
OFOO C2 EE OE 2369 ° ~  JMP SBRK 
OF03 2370 * 
OF03 2374 * OUTPUT CHR IN REG A TO SCREEN 
OF 03 2372 * 
OFO3 4F 2373 SCOUT MOV C,A 
OFO4 28 443 19 2374 LXI - H,CCP GET CURRENT CURSOR POSITION 
OFO7T 46 2375 MOV B,M 
OFO8 FE OD 2376 CPI CR CARRIAGE RETURN? 
OFOA CA 2F OF 2377 JZ SCOT2 
OFOD FE 5F 2378 CPI SPH BACKSPACE? 
OFOF CA 58 OF 2379 JZ BKSPA 
OF32 FE 04 2380 CPI 'A'~U0H CURSOR ON-OFF 
OFd4 CA 8E OF 2384 JZ CURTG 
OF47 FE 4A 2382 _ “PT 'Z7'-L0H CLEAR SCREEN 
OF39 CA 58 OF 2383 JZ INITS | 
OFAC FE 20 2384 CPI 20H 
OFJE D8 2385 RC . NO OTHER CONTROL CHRS 


OF 4F 2386 # 


PROCESSOR TECHNOLOGY BASIC 


## COPYRIGHT 14976 


Or dF 
OF 4F 


OF AF. 


OF22 
OF 25 
OF 26 
OF 29 
OF 2A 
Orec 
OF 2F 
OF 2F 
OF 32 
OF 35 
OF 38 
OF 3g 
OF 30 


OF 3D 3 


OF 40 
_ OFY2 
OF45 
OFS 
OF4g 
OFuC 
Or uF 
OF50 
OFr53 
OF54 
OF 56 
OBS 
OF 58 


OF 58. 


OFSB 
OF5E 
OF 5F 
OF 6a 
OFré62 
OF 65 
Or 68 
OF 68 
OF 68 
OF 68 
OF 6B 
OF6E 
OF 70 
Or74 
OF7e 
OF 73 
OF74 
OF 77 
OF77 
OF 7A 
OF 7b 
OF 80 


(OF83 3 


OF 86 
OF 88 


49 
OF 


49 


cc 
04 


3% 


5 
2387 * STOR 
2388 # 
2389 LDA 
2390 CALL 
2394 MOV 
2392 LDA 
2393 INR 
2394 CPI 
2395 JNZ 
2396 *® ADVANCE CU 
2397 SCOTe2 LDA 
2393 CALL 
2399 CALL 
2400 SUB 
2404 SCOT’ STA 
2402 MOV - 
2403 LDA 
2404 SCUR  - ANI 
2405 STA 
2406 CALL 
2407 MOV 
2408 STA 
2409 LDA 
2440 ORA 
2444 MOV 
2442 JZ 
2443 ORI 
eu MOV 
2445 RET 
2436 * BACKSPACE 
2447 BKSPA LDA 
2448 CALL 
2449 DCX 
2420 MVI 
2424 DCR 
2422 LDA 
2423 JMP 
2ueu ® 
2425 * CLEAR SC 
2426 * 
2427 INITS LXI 
2428 LXI 
2429 IL2 MVI 
2430 INX 
2434 DCX 
2432 MOV 
2433 ORA 
— 24au JNZ 
2435 * SCREEN IS 
2436 STA 
2437 © STA 
2438 STA 
2439 STA 
2440 ‘STA 
2uny MVI 
24uh2 STA 


os ALS-8 PROGRAM DEVELOPMENT SYSTEM 


PROCESSOR TECHNOLOGY CORP. 


6200 HOLLIS STREET 
EMERYVILLE, CALIF. 


E CHR IN VDM MEMORY 


94608 


CLN CURRENT LINE NUMBER 


CLNA FIND ADDRESS 
M,C PUT IN THE CHR 


CCP ADVANCE THE CURSOR 


RSOR LINE 


AND ERASE LAST CHR 
CLN 
CCUR 
H 
} Oe a BLANK IT 
B 
CLN 
SCUR 


REEN AND INITIALIZE PARAMETERS 


H, VDMBASE 
B, #024 
M,t ' 


H 

B 

A,B 

C 

Die LOOP UNTIL ALL 
CLEAR NOW SET PARAMETERS 

BOSL 

BOTL 

PHEAD 

CCP 

CURr 


A, 45 
CLN 


64 LAST CHR IN SCREEN LINE? 


4K CHARACTER 


R# 


PLACES HAVE A SPACE 


PAGE 


uu 


PROCE 
am 


OF8B 
OF 8E 
OF8E 
OF93 
OFr93 
OF95 
OF99 
OFrgA 
OF9u 
OF AO 
OFAO 
OrA3 
Or A4 
OFA5 
OFA4 
OF AT 
OFAA 
OF AD 
OFBO 
OrBa 
OrB2 
OFrB3 
OF B46 
Or B7 


- OFB8 


OFBA 
OrBa 
OFBB 
OFsE 
OFBr 
orco 
Orci 
Orce 
OFC5 
OFC4 
OFC8 
Orcg 
OFc9 
Orcg. 
OFCY 
OFCA 
OFCDp 
OFCE 
OrCr 
Ord 
Orba 
OF b3 
OFDS5S 
OFDE 
OrvT 
OF DY 
OFUA 
OF vB 
Ord 
OFLC 
OF pF 


SSOR TECHNOLOGY BASIC 


COPYRIGHT 41976 


BB 


(ee) 
may 


WY 


C8 


uu 


03 
cc 


CO 


c9 


OF 
49 


a9 
19 


49 
OF 


49 


00 
OF 
20 


OF 


3 49 


Ag 


49 


OF 


% % 


2443 
2uyu 
2uus 
2446 
24k7 
2448 
2449 
2450 
2454 
2452 
2453 
2u5y 
2455 
2456 
2457 
2458 
2459 
2460 
2463 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2474 
2472 
2473 
2u7y 
2475 
2476 
2477 
2478 
2479 
2480 
2uB4 
2482 
2483 
243k 
2485 
2486 
2487 
2488 
2489 
2490 
2494 
2492 
2493 
2ugu 
2495 
2496 
2497 
2498 
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(ON--OFF---ON.....) 


94608 


CALCULATE SCREEN ADDRESS AND RETURN. IN HL 


5 
CALL VDMOT 

* TOGGLE CURSOR 

CURTG LDA CURF 

| XRI 4 

STA CURF 
LDA CCP 
MOV B,A 
LDA CLN 
JMP SCUR 

: 

SCRL LXI H, BOTL 
PUSH H 
MOV A,M 
INR M 
SUB M 
LXI B,0 
CALL CLNA 
LXI B, 2040 

SCRL2 MOV M,B 
INR L 
DCR 6 
JNZ SCRL2 
POP H 
MOV A,M 
ANI OFH 
MOV M,A 

# 

VDMOT LDA BOSL 
RLC 
RLC 
RLC 
RLC 
LXI H, BOTL 
ORA M 
OUT VDMDEV 
RET 

% 

% 

# 

CLNA MOV Loa 
LDA BOTL 
ADD L 
RRC 
RRC 
MOV bok 
ANI 3 
ADI VDMPAG 
MOV H,A 
MOV Au 
ANI OCOH 
ADD B 
MOV L,A 
RET 

# 

CCUR CALL CLNA 
MOV AJM 


tx} 


LOW MOD MATH 


PAGE 


us 


PROCE 
#% 


OFEO 
OFE2 
OFE3. 
OFEU 
OFER4 
OFE4 
OFrE4 
OF E6 
OFES8 
OrEB 
OFEC 
OFEE 
OFF 

OFF 3 
OFF4Y 
OF FT 
GEERT 
OFF 9 
OF FC 
Orre 


OF EP 3 


3002 
4003 
3006 
3007 
4007 
JOOA 
200B 
J00C 
400D 
4005. 
4930 
$042 
aou 
3047 
4038 
1049 
JIC 
JOE 
4024 
3023 

(4026 
4026 
1026 
1026 
1029 
JO2A 
402D 
102E 
4030 
4032 
$034 
4037 
303A 
4033 
103B 
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PROCESSOR TECHNOLOGY CORP. 
6200 HOLLIS STREET 


EMERYVILLE, CALIF. 94608 PAGE 
ANI 7FH 
MOV M,A 
RET 


. STANDARD TERMINAL OUTPUT DRIVER 


5 
COPYRIGHT 8976 ## 
E6 7F 2499 CCUR2 
77 2500 
C9 2501 
2502 # 
2503 
2504 # 
DB 0O 2505 TEROT 
E6 80 2506 
CA 95 OE 2507 
78 2508 
D3 04 2509 
FE OD 2510 CHCHK 
C2 F7 OF 2514 
AF 2542 
C3 03 40 2513 
2544 # 
FE OA 2515 CHLF 
CA 07 40 2536 
FE 20 2547 
D8 2548 
3A 90 47 2549 
c 2520 
32 90 17 252% PSTOR 
C9 2522 
2523 # 
3A 92 47 2524 NULCH 
B7 2525 
C8 2526 
C5 2527 
uP 2528 
06 00 2529 
CD 95 OF 2530 CH2 
OD 2534 
C2 410 10 2532 
C3 2533 
cg 2534 
CD 3C 40 2535 CRLF2 
06 OD 2536 CRLF 
CD 95 OE (2537 
06 OA 2538 
C3 95 OF 2539 
2540 # 
2544 # 
2542 # 
3A 3F 49 2543 PCHECK 
BT 254u 
CC 90 OE 2545 
c8 2546 
DB O4 2547 
E6 7F 2548 
FE 03 2549. 
CA 52 04 2550 
32 3F a9 2551 
(ots) 2552 
2553 # 
2554 # 


IN 0 

ANI 80H 

JZ CHOUT 

MOV A,B 

OUT a TYPE IT 

CPI CR 

JNZ CHLF NOT CR IS IT LF? 

XRA A 

JMP PSTOR RETURN PHEAD TO ZERO 
CPI LF 

JZ NULCH IF LINEFEED PROCESS THE NULLS 
CPI 40Q NO PHEAD INC IF CONTROL CHAR 
RC 

LDA PHEAD 

INR A 

STA PHEAD 

RET 

LDA NULLCT OUTPUT NULL CHARS 
ORA A | 

RZ 

PUSH B 

MOV C,A 

MVI B, NULL 

CALL CHOUT OUTPUT COUNT "C" NULLS 
DCR c 

JNZ CH2 

POP B 

RET 

CALL CRLF 

MVI B,CR 

CALL CHOUT 

MVI B,LF 

JMP CHOUT 


CHECK IF PANIC CHARACTER HAS BEEN HIT 


LDA BRKCHR 
ORA A 
CZ STATUS 
RZ 
IN 1 GET LAST CHR INPUT 
ANI TFH 
CPI ESC 
JZ STOP A 
STA BRKCHR 
RET 


GET INTEGER FROM TERMINAL 


46 


ald ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 
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PROCESSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 
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3038 2555 * DE CONTAINS STRING TO PRINT FIRST 
4032 2556 * HL HAS 4 LESS THAN ACCEPTABLE LOWER BOUND 
4033 2557 * THIS ROUTINE GOES TO START IF BAD NUMBER 
4033 2558 * INTEGER VALUE RETURNED IN HL 
4038 2559 * 
403B E5 2560 GINT PUSH H 
403C EB 2564 XCHG 
403D 3A 90 47 2562 LDA PHEAD 
2040 BT 2563 ORA A 
4043 Ck 4C 40 2564 CNZ CRLF 
2044 CD 23 OD 2565 CALL PRNT 
4047 CD 55 OF 2566 CALL INLINE 
HOXA 24 DZ 48 2567 LXI H, IBUF 
AO4D 22 95 47 2568 SHLD TXA 
$050 CD EO OD 2569 CALL INTGER 
4053 DA 00 00 2570 Jc START 
4056 FE OD 2574 CPI CR 
4058 C2 00 00 2572 — INZ START 
105B D3 2573 POP D 
205C 22 D3 48 2574 SHLD IBUF US? IBUF AS A TEMP 
SO05F 24 b3 48 2575 LXI H,IBUF 
2062 Cb 35 OD 2576 CALL DCMP 
4065 D2 00 00 2577 JNC START 
3068 2A D3 18 2578, LHLD IBUF GET THE VALUE BACK TO HL 
-106B 7E 2579 MOV A,M 
QO46C 2F 2580 CMA 
4060 77° 2584 MOV M,A TRY TO STORE THERE 
406E BE 7 2582 CMP M | 
a04? C2 00 00 2583 JNZ START BAD OR MISSING MEMORY 
4072 C9 2584 RET 
4073 2585 # 
40730 . 2586 # OUTPUT FP NUMBER ADDRESSED BY HL 
1073 _ 2587 # 
4073 01 FC FF 2588 FPOUT = LXI B, -DIGIT~3 
4076 09 2589 DAD B 
3077 4b 2590 MOV B,H 
4078 4D 2594 MOV _¢,L 
4079 23 2F a9 2592 LX H, ABUF OUTPUT BUFFER 
407C 2A 3A 49 2593 LDA INFES OUTPUT FORMAT. 
JO7F 22 39 49 2594 STA FES STORE IT 
4082 4E 03 _- 2595 MVI E, DIGIT 
4084 36 00 25,96 MVI M, 0 CLEAR ROUND-OFF OVERFLOW BUFFER 
4086' 23 : 2597 INX H ABUT 44 
4087 | 2598 * 3 
4087 OA 2599 NXT LDAX B GET DIGIT AND UNPACK 
4088 57 2600 MOV D,A 
4089 IF 2603 RAR 
408A 4F 2602 RAR 
§08B 4F 2603 RAR 
408C AF 2604 RAR | 
408D E6 OF 2605 ANI 47Q REMOVE BOTTOM DIGIT . 
408F 77 2606 MOV M,A STORE TOP DIGIT IN OUTPUT BUFFER (ABUF) 
4090 23 2607 INX H 
4094 7A 2608 MOV A,D NOW GET BOTTOM DIGIT 
3092 £6 OF 2609 ANI 47Q | 
3094 77 2640 MOV M,A STORE IT 


PROCESSOR TECHNOLOGY BASIC 
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3095 
3096 
1097 
2098 
a098B 
a09C 
bO9F 
a0A0 
_ d0A4 
HOAU 
HOA5 
30A5 
SOAS6 
gOA7 
40A8 
AQAB 
JOAD 
40B0 
$0584 
40B4 
3O0B5 
3036 
1087 
SOBA 
40BB 
A05C 
TOBE 
20C 3 
8OCH 
a0C6 
80C7 
#0C8 
20C8 
30C9 


AOCA LT 


40Cb 
V0CF 
a0v3 
30D4 
3006 
wOU7 
i008 
4003 
30DB 
30uD 
aOUE 
dOuF 
8O0E3 
A0E2 
VOE5 
JOE6 
40E8 
4 0EB 


§0EB 3 


A0EE 
20EF 


87 
29 


37 


B6 
80 
Ba 


BT7 


38 


06 


39. 


C8 
0% 


40 
49 


a9 


40 
10 


“40 


49 


40 


30 


a4 


A0 


40 
a9 
40 


% & 


2644 
2642 
2643 
2644 
2645 
2646 


2647 


26348 
2619 
2620 
2624 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
26443 
2642 
2643 
264u 
2645 
2646 
2647 
2648 
2649 
2650 
2654 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2663 
2662 
2663 
2664 
2665 
2666 


FIX2 


ZRO 


CHKS3 


CHKXN 


BR 


> Ww Smo eP yw eww 


Sa Or oe 
m UY) at A) CD ee > 1) 


> 
<4 


CHKX3 
37Q 


DIGIT#2 


CHKX2 


A, DIGIT#&2-3 


D,A 
A 
ROUND 


47Q 
D,A 


E 
DIGIT #244 


B,A 
CHKXN 
A,M 
4100Q 
CHK4O 


XSIGN 
A 
XNEG 
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STORE SIGN OF NUMBER 


CLEAR ROUND-OFF BUFFER (ABUF+43) 42 DIGIT NO RND 


EXPONENT SIGN STORE 
CLEAR XSIGN 


GET EXPONENT 


EXPONENT ZERO? 
REMOVE NORMALIZING BIAS 
INCREMENT XSIGN TO NE ATIVE FLAG (4)LATER ZERO 


ITS A NEGATIVE EXPONENT 
INCREMENT XSIGN TO NEGATIVE (4) 


EX-ONENT TEMP STORE 


FORMAT TEMP BYTE 
FORCE EXPONENTIAL PRINTOUT 
FORMAT FOR XOUT 


CHECK IF EXPONENTIAL PRINTOUT 


ADD EXPONENT AND DECIMAL PLACES 


MAX DIGITS 


- CHECK EXPONENT SIGN 


ITS 


NEGATIVE 


&% 


PAGE 


48 


PROCE 
i & 


A0F2 
4073 
TOF 6 
a0F6 
40F7 
a0F8 
2073 
10FE 
40°F 
4102 
47104 


. 8407 


4308 


8309 | 


410A 
340C 
a107 
aat2 
aaa5 
4238 
4248 
4448 
BU4A 
4435 


d4av | 


JITE 
4420 
4324 
4423 
4424 
4321 
a324 
4425 
4d27 
a32A 
d42B 
4428 
442 
4133 
4434 
_ 434 
4335 
4436 
4437 
4438 
413.3 
4430 
#440 
4ad42 
4Ad45 
agus 
244s 
4448 
4449 


Q44C | 
4345 7 


SSOR TECHNOLOGY BASIC 
COPYRIGHT a976 %*® 
78 2667 
C3 24 41 2668 
2669 
TA 2670 
93 2674 
v2 42 43 2672 
3A 3A 39 2673 
B7 2674 
F2 48 42 2675 
E6 OF 2676 
CA 48 42 2677 
OF 2678 
DF 2679 
ab 2680 
Of O48 268% 
24 2E 49 2682 
C3 83 44 2683 
CA FB 40 2684 
C3 213 34 2685 
2686 
2687 
06 IF 2688 
AQ 2689 
FE O07 2690 
D8 2694 
3E 07 2692 
C9 2693 
2694 
2695 
2696 
cb 38 4d 2697 
up 2698 
06 00 2699 
24 30 39 2700 
09 2704 
22 22 49 2702 
7E 2703 
rE 95 2704 
DA 48S 34 2705 
2706 
2B 2707 
34 2703 
TE 2709 
B7 2710 
CA 49 4% 2744 
FE OA 27a2 
C2 45 44 2743 
36 00 2744 
C3 34 44 2745 
2716 
2747 
2A 22 49 2718 
28 2749 
3A 39 19 2720 
a7 2724 
VA 5D 44 2722 
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SUBTRACT EXPONENT AND DECIMAL PLACE COUNT 


CLEAR FLAGS 


MAX DIGITS OUT 


GET ROUND-OFF ADDRESS 


ROUND IF >=5 
ROUND UP 


CHECK IF ROUNDED NUMBER >9 


* This routine is used to eliminate trailing zeros | 


CHECK IF TRAILING ZEROS ARE WANTED 


5 
MOV A,B 
: JMP ROUND 
XNEG MOV A,D 
SUB E 
JNC XN2 
XN@ LDA INFES 
ORA A 
JP ZERO 
ANTI 46Q 
JZ ZERO 
RRC 
MOV E,A 
DCR E 
MVI C4 
LXI H, ABUF-% 
JMP NRND 
XN2 JZ XN. 
JMP ROUND 
# 
# 
CLEAN MVI B, 37Q 
ANA B 
CPI DIGIT #2+4 
RC 
MVI A, DIGIT #2+4 
RET 
# 
* This routine is used to round data to the 
* specified decimal place 
ROUND CALL CLEAN 
MOV C,A 
MVI B,0 
LXI H,ABUP +4 
DAD B 
SHLD ADDT 
MOV A,M 
CPI 5 
JC TRL2-4% 
% 
LESS4 DCX H 
INR M 
MOV A,M 
ORA A 
JZ TRL2 
CPI 10 
JNZ TRAIL 
MVI M,0 
: JMP LESS4 
TRAIL LHLD ADDT 
DCX H 
TRL2 LDA FES 
RAL 
JC FPRNT 


YES- GO PRINT DATA 


PAGE 


ug 


PROCE 
% & 


4150 
4451 
4352 
$455 
3156 
34157 
445A 
445D 
335d 
a35D 
4460 
4361 
1462 
4365 
3407 
336A 
$368 
&16E 
3470 
4370 
4373 
2474 
$477 
SATA 
&A7C 
$470 


3480 


3183 
4482 
3383 
4183 
3384 
385 
$187 
428A 


3185 3 


$385 
448F 
3392 
4195 
3198 
hi93 
4498 


G39 : 


aagF 


STA] 3 


aaA5 
S3A6 
a4A9 
JGAA 
a3AB 
ddA 
43B4 
a4B2 
4UB2 
43B5 


SSOR TECHNOLOGY BASIC 5 


COPYRIGHT 38976 


TE 
B7 
C2 
2B 
OD 
FA 
C3 


24 
TE 


42 
44 


a9 


a4 


49 
43 


a9 
41 
49 


49 


+4 
19 
44 
12 
44 


#2 
19 


44 


a9. 


44 


a4 
#2 


a2 


a 


et23 
2724 
2725 
2726 
2t2q 
2728 
2729 
2730 
2734 
213e 
2733 
2734 
2135 
2736 
Fd og | 
2738 
2739 
2740 
2744 
2Th2 
2743 
27h4u 
2745 
2THO 
2747 
2748 
2749 
2750 
“att 
2ibe 
2753 
2754 
2655 
2756 
2757 
2153 
2759 
2760 
2764 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2774 
road i 
2773 
2774 
2775 
2776 
2777 
2778 


TRL3 


% 


# Here starts the 


FPRNT 


PO2 


NRNDO 


PRIN2 
PRI24a 


PRIN 


MOV 
ORA 
JNZ 
DCX 
DCR 
JM 

JMP 


LXI 


#% 
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A,M 

A 
FPRNT 
H 

C 
ZERO 
TRL3 


94608 


IS IT A ZERO? 
NO - GO PRINT 


YES= FIX OUTPUT DIGIT COUNT 


print format routines 


H, ABUF 


A,C 
DIGIT#2+44 
NRNbD&@ 

C 

FSIGN 


PRIN2 
NEG 
PRI2*b 


SPACE 
FES 


XPRIN 
XSIGN 
A 
POSIT 
A,C 

A 
PRIN 


ZERO 


RADIX 


A 


CHECK IF ROUNDED UP TO 4 
JUMP IF NOT 


ZS EXPONENT NEGATIVE? 


GET EXPONENT 


IS IT ZERO? (F+0) 


FIX EXPONENT COUNT 


CHECK FOR MAXIMUM DIGITS OUT 


CHECK IF NEGATIVE NUMBER 


GO OUTPUT RADIX AND NUMBER 
OUTPUT (-) 


QUTPUT A SPACE 


GET OUTPUT FORMAT 
CHECK IF EXPONENTIAL OUTPUT FORMAT 


GET EXPONENT SIGN 
CHECK IF NEGATIVE EXPONENT 


OUTPUT RADIX AND NUMBER : 
NO DIGITS AFTER RADIX, OUPUT ZERO AND DONE 


PRINT DECIMAL POINT 


## ALS-8 PRCGRAM DEVELOPMENT SYSTEM ## 
PROCESSOR TECHNOLOGY CORP. 


PROCESSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 
#% COPYRIGHT 4976 ## FMERYVILLE, CALIF. 94608 PAGE 54 

43B4 B3 2779 ORA E 
43B7 CA C4 49 2780 JZ PRINS JUMP IF NO ZEROS TO PRINT 
S3BA CD U8 12 2784 CALL ZERO - FCRCE* PRINT A ZERO 
31BD 4D 2782 DCR E 

'$1BE C2 BS 413 2783 JINZ PRIN4N+3 
41C8 2784 # ; 
4404 CD 39 12 2785 PRINS CALL NOUT PRINT ASCII DIGIT 
#3C4U C2 C4 44 2786 JNZ PRINS 
a3C7 C9 2787 RET 
41€8 2788 # 
4108 Cb 39 12 2789 POSIT CALL NOUT 
44CB 14D 2790 DCR E BUMP EXPONENT COUNT 
$1CC C2 C8 1454 2794 JNZ POSIT 
A4CP 79 2792 MOV A,C CHECK IF MORE DIGITS TO OUPUT 
4400 B7 | 2793 ORA A 
44053 C - 2794 RZ F NO, DONE 
#4D2 P8 2795 RM 
41D3 C3 B2 233 2796 JMP PRIN4 NOW PRINT DECIMAL POINT 
4406 2797 * 
4V1D4 2798 * Get here for exponential output format 
4106 Cbd 39 42 2799 XPRIN CALL NOUT 
4109 CA ES 44 2800 JZ NDEC INTEGER? 
a40C Cb 52 32 2804 CALL RADIX NO.....PRINT DECIMAL POINT 
44DF Cp 39 142 2802 XPRI2 CALL NOUT 
b4E2 C2 DF 44 2803 JINZ XPRI2 
a7E5 2804 # 
47E5 06 45 2805 NDEC MVI B,'E! OUTPUT ‘'E! 
Q¥1E7 Cb 95 OF 2805 CALL CHOUT : 
AiEA 2A 37 49 «|. 2807 LDA _ XSIGN 

S3ED B7 2808 ORA A 
SARE CA FB 44 2809 JZ XPRI3- 
4¥F1 CD 43 42 ~~. 2810 ‘ CALL NEG PRINT EXPONENT SIGN (-) 
#4F4 3A 38 49 2844 LDA EXPO 
Aar7 3C 2842 INR A 
$41F8 C2 04 42 2843 JMP xOUT2 
AaPFB O48 2B 2844 XPRI3 MVI B,'+' EXPONENT (+) 
a4frb Cb 95 OF 2815 CALL CHOUT 
4200 | 2846 * 
4200 28417 *'This routine is used to.convert the exponent 
4200 2848 * from binary to ASCII and print the result 
4200 3A 38 19 2849 XOUT LDA EXPO 
4203 3b 2820 DCR A 
a204 OF 64 2824 XOUT2 MVI C,.100 
4206 46 00 2822 MVI 'D,0 
41208 Cb 2F Az 2823 CALL CONV 
220B FE 30 2824 CPI O° SKIP LEADING ZEROS 
4200 CA 44 42 2825 JZ X024 
4230 44 2826 INR D 
3244 Cb 95 OF 2827 CALL CHOUT 
a244 7B 2828 X024 MOV A,E 
$235 OF OA 2829 MVI C, #0 
42317 Cb 2E 2 2830 CALL CONV 
$24A FE 20 2831 CPI “0” 
4210 C2 23 42 2832 JINZ X03 
424F 45 2833 DCR D 


4220 C2 26 42 2834 JNZ X04 
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4223 
4226 
4227 
4229 
H22A 
422D 
J225 
4230 
$234 
4232 
4235 
3236 
1237 


1238 | 


“4239 
a239 
$239 
4239 
$23A 
$23C 
&23d 
4249 
Y2u4 
doe 
1243 
4243 
G2u2 
A2U5 
3248 
YOQUA 
a2up 
deur 
&252 
4254 
4257 
W257 
4257 
4257 


4258 


3259 
¥25A 
4258 
125E 
1264 
426 3 
"3266 
4266 
1269 
426C 
426F 
A272 
1273 
4274 
a277 
3277 
A2TA 
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95 OF 
30 

95 OF 
oF | 


30 32 


30 


» 95 OF 


20 19. 


26 49 
4B 43 


00 00 


2A 49 
24 49 
6F 32 


37 419 


ED 42 
A4% I2 


& & 


2835 
2836 
2837 
2838 
2839 
2840 
2844 
2842 
2843 
2844 
285 
2846 
284N7 
2848 
2849 


2850 


2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2864 
2862 


" 2863 


2864 
2865 
2866 
2867 
2868 
2869 
2870 
287A 
2872 
2873 
2874 
2875 
2876 
2877 
2878 
2879 
2880 
2884 
2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
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X03 CALL CHOUT 

XO4 MOV A,E 
ADI ror 
MOV B,A 
CALL CHOUT 
RET 

CONV MVI By FO tes” 
INR B 
SUB C 
INC CONV+2 
ADD C 
MOV EA 
MOV A,B 
RET 


% 


ADD ASCII BIAS 


* This routine adds ASCII bias to a BCD digit 
# and calls the output routine 


DECREMENT TOTAL DIGITS OUT COUNT 


NOUT MOV A,M 
ADI 1gr 
‘MOV B,A 
CALL CHOUT 
INX H - 
DCR C 
RET 

# 

# Common symbol loading routines 

NEG MVI B,'-' 
JMP CHOUT 

ZERO MVI B,-*O' 
JMP CHOUT 

SPACE MVI 2 
JMP _ CHOUT 

RADIX MVI Be ae 
JMP CHOUT 


#CONVERTS FP STRING AT DE, 


UPDATE DE PAST TERMINATOR 


*PUTS TERMINATATOR IN B, PUTS FP NUMBER AT ADDRESS IN HL 


#SETS CARRY IF NOT FOUND 


FPIN PUSH H 
PUSH D 
XCHG 
DCX H 
SHLD ADDS 
LXE H, OPST 
MVI ~~  —s- C, DIGIT +6 
CALL CLEAR 
& 
SCANC Ext D0. . 
| LX H, BC 
SCANO SHLD BCADD 
SCANP LXI H, SCANP 
PUSH H 
XRA OA 
STA XSIGN | 
bi 
SCANG CALL IBSCN 
JC - SCANX 


CLEAR TEMPORARY STORAGE AREAS AND BC BUFFER 


BC=PACK BUFFER 
PACK BUFFER POINTER 


USED FOR RETURN FROM OTHER ROUTINES 


CLEAR EXPONENT SIGN BYTE 


FOUND A NUMBER, GO PACK IT 


PAGE 


52 
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427b FE 25 2894 CPrL Mgt RADIX? 
327° CA 95 42 2892 JZ SCAN5 PRCCESS RADIX POINTERS 
4282 FE U5 2893 CPL uF EXPONENT? 
2284 CA 23 43 2894 ) JZ EXCON FOUND "Et, GO PROCESS EXPONENT NUMBER 
4287 2895 *NOT A CHARACTER LEGAL IN NUMBER 
4287 47 2896 MOV B,A MOVE TERMINATOR TO B 
#288 2A 26 19 2897 LDA OPST CHECK IF ANY DIGITS YET 
428B EH 40 2898 ANI 200 
aA23p C2 014 43 2899 JNZ ENTR2 
4299 2900 *GET HERE IF LEGAL FP NUMBER NOT FOUND 
4290 Ed 290% FPIN4 POP H SCANP LINK 
42914 di 2902 POP D TEXT POINTER 
a292 84 2993 POP H FP # ADDR 
4293 27 2904 STC 
4294 C9 2905 RET 
4295 2906 *FOUND DECIMAL POINT 
4295 AF 2907 SCAN5 XRA A FOUND RADIX PROCESS RADIX POINTERS FOR EX® 
#296 B2 2908 ORA D ANY DIGITS YET? 
4297 C2 9F 42 2909 JNZ SCAN6 
329A CH CO 29140 ADI 300Q SET ECNT - STO? COUNTING. DIGITS | 
1290 B3 29144 ORA E NO INT DIGITS, BIT 7 IS COUNT/DON'T COUNT FLAG 
a29u 52 2912 MOV EA BIT 6 IS NEGATIVE EXPONENT FLAG 
a829=& C9 2943 RET 
429F 2—& 80 2914 SCAN6 MVI A,200Q * SEY ECNT TO COUNT DIGITS 
42Ad B3 29135" ORA E 
‘$2A2 SF 29146 MOV BE,A 
42A3 C9 - 2937 RET . 
32A4 29718 # 
42A4u EB OF 2919 SCANX ANI 17Q . -OUND NUMBER-REMOVE ASCII BIAS 
A2A6 UT 2920 MOV B,A 
42A7 24 26 439 2924 LXI H,OPST SET FIRST CHARACTER FLAG 
A2AA 2E 30 | 2922 MVI A,60Q 
42AC BA 2923 ORA M 
42AD 77 2924 MOV M,A 
d2AE AF 2925 XRA AD i 2 
42AF BO 2926 ORA B IS CHARACTER ZERO? 
42B0 C2 BC 42 2927 . JNZ PACK 
#2B32 B2 2928 ORA ° D LEADING ZERO? IE; ANY INT DIGITS? 
4284 C2 BC 42 2929 ~ JNZ PACK 
4287 B23 2930 ORA E 
42B8 SF 2934 MOV E,A 
4289 C8 2932 RZ ‘ IF COUNTING YET, 
§2BA:4C 2933 INR E ECNT+%-COUNT ZEROS FOR EXPONTENT COUNT 
$28B C9 2934 RET 
42BC 2935 * 
42BC 2936 * This subroutine BCD packs digits into reg BC 
$2BC 2937 * 
42BC 7B 2938 PACK MOV A,E 
423D 47 : 2939 RAL 
A2BE DA C2 42 2940 JC PACKS 
a2C4 4C 2943 INR E | 
a2C2 7B 2942 PACKS MOV A,& 
4203 22 28 49 2943 OTA ECNT DIGIT COUNT FOR FXPONENT COUNT 
#206 44 2g4uu INR D TOTAL DIGIT COUNT (D ALSO HAS TOP/BOTM FLAG BIT- 7) 
42C7 7A 29u5 MOV A,D 


3208 F6 7F 2946 ANI 477Q4 REMOVE TOP/BOTTOM FLAG 
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42CA FE O7 2947 CPL DIGIT*2+4 LIMIT INPUT DIGITS 

42cC bO 29u8 ; RNC 

a2Cb AF 2949 XRA A 

a2CE B2 2950 ORA D 

t2CF FA DF 42 2954 JM BOTM 

A2D2 2952 *# 

d2p2 F6 80 2953 TOP ORL 200Q SET MSB FOR TOP FLAG 
$2D4 57 2954 MOV D,A 

$205 78 2955 MOV A,B 

42D6 2A 26 19 2956 LHLD BCADD GET BC ADDRESS 

3209 07 a 2957 RLC 

i2vA 07 2958 RLC 
~42DB 07 2959 RLC 

¥2vC 07 2950 RLC 

deod 77 29564 MOV M,A SAVE CHR IN BC 

S2vE Cg 2962 © RET ; 

32UF 2963 # 

a2vF E6 7F 2964 BOTM ANI 477Q - STRIP MSB (BOTTOM FLAG) 
42E9 57 - 2965 MOV DA 

42E2 78 2956 MOV A,B 

V2E3 2A 24 49 2967 LHLD BCADD ; 

A2E6 BS 2968 ORA M OR IN TOP NUMBER 

S2E7 77 © 2959 MOV M,A PUT NUMBER BACK IN BC 
42E8 23 2970 INX H 

a2E9 C4 2 - 2974 POP B 

J2EA C2 6C 42 2972 JMP SCANO 

¥2ED 2A 20 19 2973 IBSCN LHLD ADDS INPUT BUSFER POINTER 
a2F0 22 2974 INX H GET NEXT BYTE 

a2rg 75 2975 MOV A,M 

der2 FE 20 2976 CPL vt 

42F4 CA FO 42 2977 JZ IBSCN+3 

d2er7 22 20 19 2978 SHLD ADDS NOTE: THIS ROUTINE FALLS THROUGH TO BELOW 
N2FA 2979 *THIS ROUNTINE CHECKS FOR ASCII NUMBERS (0-9) 

J2FA FE 3A 2980 NMCHK CPI 'Q'+4 

derc vo 2984 RNC 

Serv FE 30 2982 CPL ue 

2PF 2F 2983 CMC 

#200 CQ 2934 RET 

+303 2985 # 

3303 2986 * This routine is used to adjust a number in BC BUFFER 
3304 2987 * AND RETURNS VALUE 

3203 313 00 00 2988 ENTR2 LXI1 b,0 

4204 c¢ 2989 ENT4 PUSH B TEAMINATOR 

4305 Cb 7TE 43 2990 CALL FIXE | NORMALIZE FLOATING POINT NUMBER 
4308 C4 299% POP B TERMINATOR 

#309 D4 . 2992 POP D SCAN? LINK 

S$30A D4 2993 POP v) OLD TEXT ADDR 

a#30B Di 2994 POP D RETURN ADDR 

430C OF 05 . 2995 MVI C, DIGIT+2 

&SOE 23 2E 49 2996 LXxI H, BC+DIGIT+4 

43343 Cb 9C OC 2997 CALL VCOPY 

$334 2A 20 49 2998 LHLD ADDS 

$3437 EB — 2999 XCHG 

3338 33 3000 INX D 

4339 B7 ‘30014 ORA -A 


434A C9 7 3002 RET 
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3348 3003 * This rcutine is used to clear storage areas 

424B 3004 ® The starting address is in H&L and the count 

4343 3005 * is in reg C 

433B AF 3005 CLEAR XRA A 

a34C 77 3007 MOV M,A 

434d 23 3008 INX H 

a33E OD 3009 DCR C 

A2aF C2 1C 83 3040 JNZ CLEAR+4 

4322 CQ 3044 RET 

#323 3042 * , 

3323 3033 * This routine converts the ASCII exponent of 

4323 3014 * number in the input buffer to binary, and 

4323 3045 * normalizes exponent according to the input 

4323 | 3046 * format of the number | 

4323 Cb ED 42 3037 EXCON CALL IBSCN - GET CHARACTER 

$326 DA 48 43 3018 JC EXC3 

4329 FE £3 3019 CPL PLSRW CHECK FOR UNARY SIGNS 

432B CA 4&2 43 3020 JZ Excu 

432E FE 2B 3024 CPI 4! 

4320 CA 42 43 3022 JZ EXC4 

4233 FE 2D 2023 CPI '.! 

$235 CA 2b 13 3024 JZ EXC2 

4328 FE ES 3025 CPL MINRW 

433A C2 TA 43 3026 JINZ FPERR NO SIGN OR NUMBER? 

a#32) 3E 0} 3027 EXC2 MVI A,% 

433F 32 37 49 3028 ' STA XSIGN SAVE SIGN 

4342 Cb ED te 2029 EXCu CALL IBSCN 

$4245 D2 TA 43 3030 JNC FPERR NOQ NUMBER? 

432438 Cb UE 43 303% EXC3 CALL ASCDC CONVERT ASCII TO BINARY 

3343 C3 04 43 3032 ; JM? " ENT! NORMALIZE NUMBER AND RETURN 

2345 2035 °* 

TG4E 3034 * This routine converts ASCII to binary 

A24E 3035 * Three consecutive numbers <428 may be converted 

424E EB 3036 ASCDC XCHG | 

434F 2% 00 00 3037 LXI H,0 : 

4352 4A 3038 ASC4 LDAX D GET CHR FROM INPUT BUFFER=- NO SPACES ALLOWED 

4353 Cb FA 42 3039 CALL NMCHK CHECK IF NUMBER 

4356 D2 69 43 2040 JNC ASC2 

4359 D6 30 3044 SUL "QO" REMOVE ASCII BIAS 
235B 44, 3042 | MOV B,H 
—435C 4D 3043 MOV CL 

435D 29 : 3044 DAD H 

A35E 29 2045 DAD H 

4357 09 3046 . DAD B 

#360 29 2047 DAD H 

4264 4F 2048 MOV C,A 

4362 06 00 2049 MVI B,0 

4364 09 3050 DAD B 

4365 13 3054 INX D 

3266 C3 52 423 3052 JMP ASC 14 

4269 EB 3053 ASC2 XCHG 

836A U7 3054 MOV B,A SAVE TERMINATOR 

426B 22 20 49 3055 SHLD ADDS SAVE IBUF ADDRESS 

A355 7A 3056 MOV A,D 

A26F BT 3057 ORA A 

4270 C2 TA 42 3058 JNZ FPERR TCO BIG >255 
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4373 7B 3059 MOV A,E 
4374 47 2060 . RAL 
$375 DA TA 33 2064 JC FPERR TOO BIG >127 
3378 4F 3062 RAR 
4379 C9 3063 RET 
337A Ci 3064 FPERR POP B ASCDC RET LINK 
$37B C3 90 J2 2065 JMP FPIN4 
3375 2066 *# 
A3TE 3067 * This routine normalizes the input number 
A37E EB 3068 FIXE XCHG 
437F 3A 2A 89 | 3069 LDA BC 
$382 B7 3070 ORA A ~S IT ZERO? 
4383 CA 8B 33 3074 JZ ZZ2 | 
41386 Co 8F 43 3072 CALL CHKPN SET EXPONENT POSITIVE/NEGATIVE 
43289 C6 80 3073 —g ADI 200Q ADD EXPONENT BIAS 
338B 22 2E 49 3074 ZZ2 STA BC+DIGIT+1 STORE NORMALIZED EXPONENT IN BC 
#38E CQ S075 RET . 
4 38F | 3076 # 
438F 3A 28 149 3077 CHKPN LDA ECNT GET EXPONENT COUNT-SET IN 'SCAN* ROUTINE 
4392 5F 3078 MOV E,A: 
$393 £6 3F 3079 ANI 77Q STRIP BITS 7&8 ° 
83295 47 | 3080 MOV B,A 
4395 3A 37 49 3084 LDA XSIGN 
8399 BT 3082 ORA A 
$298 CA B4 432 | 3083 JZ LPOS EXPONENT IS POSITIVE 
439D 24 3084 INR H SET SIGN IN H **® THIS SHOULD BE INR H NOT INX H 
S329E 2E uO | 3085 MVI A, 400Q L IS NEGATIVE 
43A0 A3Z 3086 ANA E CHECK IF E IS NEGATIVE 
#2A4 CA AC 33 3087 JZ EPOS 
H3A4 7D 2088 MOV A,L BOTH E&L NEGATIVE 
S3A5 68 3089 _ MOV L,B 
13A6 Co BD 43 3090 CALL BPOS+4 
42A9 2F 30914 CMA . 
GRAA 32C 3092 INR A 
§3AB CY 3093 RET : BACK TO FIXE 
a 2AC 3094 # 
$2AC 7b 3095 EPOS MOV A,L 2&L NEGATIVE 
A2AD 2F 3096 CMA 
J2AE 32C 3097 INR A 
J32AF 80 3098 ADD B 
3350 C 3099 RET . TO FIXE 
433i. 3400 # 
4383 3E 40 3104 LPOS MVI A,400Q *=XPONENT POSITIVE 
23332 A2 3402 ANA E | IS E NEGATIVE? 
2384 CA BC 43 3103 JZ BPOS 
4337 78 3404 MOV A,B 
—33B8 45 3405 MOV B,L 
#339 C3 AD 43 3306 JMP EPOS+1 
43BC 3407 # 
428C 78 3108 BPOS MOV A,B B&L POSITIVE 
43BD 85 | 3309 ADD L 
82BE FO 3340 RP 
#33F 3444 % 
4235F Ed 3342 POP | 
4300 C3 7A 43 | 3413 JMP ‘FPERR 


43C3 40 : 3444 DB 4*46 
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332C4 00 00 , 3445 DW 0 
33C6 04 3446 DB 1 
3207 83 3447 FPNONE DB 429 
1308 3448 * 
4208 34419 *# THIS PROGRAM WRITTEN BY 
4308 3420 2 MICROTEC 
3308 3424 * 990 E. ARQUES 
4308 3122 # SUNNYVALE, CA. 9uC°6 
4308 3423 8 
4308 3324 # THIS PROGRAM IS A FOUR FUNCTION FLOATING POINT BCD 
43C8 3425 ® MATH PACKAGE. 
9308 3126 * EACH FUNCTION MAY BE EXPRESSED AS: BC=DE # HL 
4208 3127 # <BC> = ADDRESS OF RESULT 
4308 | 3428 ® <DE> = ADDRESS OF 4ST ARGUMENT 
4208 3329 * <HL> = ADDRESS OF 2ND ARGUMENT 
a3C8 33320 * # IS ONE OF THE FUNCTIONS: +,-,X,/. 
4308 3434 * ALL ADDRESSES ON ENTRY, POINT TO THE EXPONENT PART OF 
1308 3432 * THE FLOATING POINT NUMBER. 
4308 3433 * EACH FLOATING POINT NUMBER CONSISTS OF (2*DIGIT) PACKED 
4208 3434 ® DECIMAL DIGITS, A SIGN AND A BIASED BINARY EXPONENT. THE 
4308 3435 * EXPONENT RANGE IS 40**-4127 TO 102*427. 
2308 3136 * THE NUMBER ZERO IS REPRESENTED BY THE EXPONENT 0. 
$3C8 3437 * THE NUMBERS ARE STORED IN MEMORY AS (DIGIT) BYTES OF 
3308 3138 ® OF DECIMAL DIGITS 
33C 7 3139 * STARTING AT THE LOW ORDER ADDRESS 
4308 3440 # ALL NUMBER ARE ASSUMED TO BE NORMALIZED. THAT IS FACH 
4308 3443 ® NUMBER CAN BE REPRESENTED AS F##R, 
320 3442 ®# WHERE .a<=F<4.0 AND F IS THE 
4208 3443 * EXPONENT. 
4208 3444 * 
$208 34u5 # FLOATING POINT ADDITION 
42C8 3446 * 
43C8 C5 3447 FADD PUSH B : 
4309 CD 42 46 3448 CALL EXPCK FETCH ARGUMENTS 
232CC OF 00 3449 MVI c,0 : 
42CE 4B 3350 ADSUM DCX D 
12CF EB 3451 XCHG 
$3D0 2A 28 47 3452 LDA SIGN 
&3D3 AE 3453 XRA M FORM SIGN OF RESULT 
a3D4 U7 3454 MOV BA 
(4305 EB, 3455 XCHG 
4206 4A 3456 LDAX D 
33D7 4B 3457 DCX D 
4208 A9 3458 XRA C 
4209 32 28 47 3459 STA SIGN 
42DC 23 2A 47 3460 LXI H, RCTRL ROUNDING CONTROL FLAG 
32DF 7E 3464 MOV AM 
42E0 BT 34162 ORA A 
4364 23 3463 INX H 
4352 7E 3164 MOV AWM GET ROUNDING DIGIT 
42E3 CA EA 33 3165 JZ ADS8 
43E6 07 3166 RLC 
42E7 07 3467 RLC 
43E8 07 2168 RLC 
42E9 07 3169 RLC 
422A CA BO 2470 ADS8 


ADI OBOH FORCE CARRY IF DIGIT > 5 
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PROCESSOR TECHNOLOGY BASIC 
*#® COPYRIGHT 4976 *## 
¥2EC 78 31474 
S3ED aF 3472 
S23EE DA OF 44 3173 
4373 47 3374 
$3F2 Cb OD 44 3475 
Q@3F5 D2 O04 gu 3476 
43F8 06 O4 3477 
ASFA Cb A8& 46 3478 
A3FD 24 29 17 2479 
$400 3u 3480 
$403 CA FU 46 3181 
2404 C4 3482 
3805 Cb 9A 16 3483 
3408 C9 3484 
#409 EA 2485 
Q4OA C3 OH 44 3486 
V40D 24 27 47 2487 
9430 06 03 3188 
3442 4A 3489 
3443 8F 33990 
PURu 27 3193 
3445 77 3492 
$446 2B 3493 
4447 3B 3494 
4448 05 3495 
$449 C2 42 484 3496 
$44C DO 3197 
44D 34 2198 
4URE CQ 3199 
s43F 3200 
a4uaF 3204 
OVE 3202 
a4UdF C5 3203 
#420 Cb 42 46 3204 
$422 3A 28 47 3205 
2426 FE 04 2206 
3428 32 28 47 3207 
4428 C3 CE 433 2208 
Huck 47 3209 
Quer PF 3210 
420 Cb 82 4u 3244 
4432 24 28 47 22132 
2426 DA UD 44 3243 
4429 7E 3244 
243A EF 04 3245 
ZURC 77 3236 
G43D 2B 3217 
44U2F 06 03 3238 
4440 3E OA 2249 
#4UU2 OF 3220 
#443 CH O00 3228 
G4U5 27 2222 
AUL6 77 2223 
S447 2B 3224 
B44U8 OF 3225 
34u9 3F 3226 


FSUB 


ADS4 


ADS7 
ADS3 


FLOATING 


PUSH 
CALL 
LDA 
XRI 
STA 


%% ALS-8 PROGRAM DEVELOPMENT SYSTEM 


PROCESSOR TECHNOLOGY CORP, 
6200 HOLLIS STREET 


EMERYVILLE, CALIF. 94608 
A,B 
ADS4 HAVE SUBTRACTION 
; 3 RESTORE CARRY 
ADD PERFORM ADDITION 
ADS2 
B,u 
RIGHT 
H, EXP 
M INCREMENT EXPONENT 
OVER 
B GET RESULTS ADDRESS 
STORE SAVE RESULTS 
H 
ADS2 
H, BUF+DIGIT~4 
B, DIGIT 
D 
M 
M,A 
H 
D 
B 
ADDA 
M 
POINT SUBTRACTION 
B 3 
EXPCK GET ARGUMENTS 
SIGN 
4 COMPLEMENT SIGN 
SIGN 
ADSUM 
RESTORE CARRY 
‘ COMPLEMENT FOR ROUNDING 
SUB SUBTRACT ARGUMENTS 
H, SIGN 
ADSU 
A.M GET SIGN 
4 COMPLEMENT 
M,A 
H 
B, DIGIT 
A, 9AH 
M COMPLEMENT RESULT 
0 
M,A 
H 
B 


#%& 
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%% ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 
PROCESSOR TECHNOLOGY CORP. 


PROCESSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 
*® COPYRIGHT 3976 *#* EMERYVILLE, CALIF. 94608 PAGE 59 

V4U4A C2 4O 4h 3227 JNZ ADS3 

44D 24 25 17 3228 ADS LXI H,BUF 

3450 04 03 00 3229 LXI B, DIGIT 

4453 75 3230 ADSS MOV A,M 

a45u B7 3234 ORA A 

4455 C2 66 44 3232 JNZ ADS6 

2458 23 3233 INX H 

3459 on 3234 INR B 

445A 04 3235 INR B 

445B OD 3236 DCR C 

V45C C2 53 44 3237 JNZ ADSS 

qU5P AF 3238 XRA A 

4460 32 29 17 3239 STA EXP 

4463 C2 04 4h 220 JMP ADS2 

1466 FE AO 3244 ADS6 CPI 40H 

$468 D2 6C 3h 3242 INC ADSQ 

446B 04 3243 INR B 

446C 214 29 47 3244 ADSY LXI H, EXP 

J46F TE 22U5 MOV A.M 

$470 90 3246 SUB B 

3474 CA FA 436 2247 g7 UNDER 

S474 DA FA 46 3248 JC UNDER 

4477 77 3249 MOV M,A 

3478 78 3250 MOV A,B 

4479 07 3254 RLC 

447A 07 2252 RLC 

447B 47 - 3253 MOV B,A 

447C CD CE 46. 3254 CALL LEFT 

QU7F C32 O04 44 3255 JMP ADS2 

4482 24 27 17 3256 SUB LXI -H,BUP+DIGIT~4 

2485 06 03 3257 MVI B, DIGIT 

4487 3E 99 3258 SUB MVI A,99H 

4489 CE 00 3259 ACI 0 

1483 96 3260 SUB M 

448C EB 3264 XCHG 

248D 86 3262 ADD M 

WUBE 27 3263 DAA 

J48F EB 2264 XCHG ° 

4490 77 3265 MOV M,A 

3494 2B 3266 DCX H 

4492 3B 3267 DCX D 

4492 05 3268 DCR B 

q4ugh C2 87 44 3269 JNZ SUB4 

3497 CQ 3270 RET 

b498 3274 * 

4498 3272 # FLOATING POINT MULTIPLY 

4498 3273.% 

4498 C5 3274 FMUL PUSH B 

4499 7E 2275 MOV AWM 

449A BT 3276 ORA A ARGUMENT = 0? 
449B CA B2 au 2277 JZ FMUL 14+2 | 

J4U9E 4A 3278 LDAX D 

AU9F BT 3279 ORA A ARGUMENT = 0? 

V4A0 CA B2 34 3280 JZ FMUL4+42 

J4A2 86 3284 ADD M FORM RESULT EXPONENT 


AUAX DA AD G4 3282 JC FMOVR 


## ALS-8 PROGRAM DEVELOPMENT SYSTEM #® © 


PROC#SSOR TECHNOLOGY CORP. 


PROCFSSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 
#® COPYRIGHT 1976 ## EMERYVILLE, CALIF. 94608 PAGE 60 
JUA7 F2 FA 46 3283 JP UNDER 
G4AA C32 BO 44 3284 JMP FMUL4 
JUAD FA F4 46 3285 FMOVR JM OVER 
44B0 DS 80 3286 FMUL4 SUI 428 REMOVE EXCESS BIAS 
44UB2 32 29 17 3287 STA EXP SAVE EXPONENT 
24UB5 18 3288 DCX D 
3UBA 2B 3289 DCX H 
4457 4A 3290 LDAX D 
2488 AE 3293 XRA M FORM RESULT SIGH 
44B9 23 3292 DCX H 
JUBA 4B | 3293 DCX D 
44BB E5 3294 PUSH H 
WBC 24 28 17 2295 DXL H, SIGN GET SIGN ADDRESS 
JUBP 77 3296 MOV M,A SAVE SIGN 
S400 23 3297 DCX H 
SUC AF 3298 - XRA A ; 
a4uc2 06 05 3299 MVI B, DIGIT+2 | 
44uCL 77 3300 FMUL2 MOV MA ZERO WORKING BUFFER 
34C5 2B, : 3304 DCX H 
Q4CE6 05 3302 DCR B 
4407 C2 CH qu 3303 JNZ FMUL2 
$4CA 2A 29 17 3304 LDA EXP 
a4Cb B77. 3305 ORA A 
SUCE CA 09 44 3306 JZ ZEREX 
2454 0E 03 3307 MVI C,DIGIT 
14D3 24 05 17 3308 LXI H,HOLD1+DIGIT 
J4D6 3309 * GET MULTIPLIER INTO HOLDING REGISTER 
S4D6 4A | 3340 FMUL3 LDAX D 
4ub7 77 3343 MOV M,A PUT IN REGISTER 
34D8 23 3312 wCK H 
4459 1B | 3343 DCX D 
¥4UDA OD 3344 DCR C 
$4DB C2 Dé 4a 3345 JNZ FMUL 3 
JUDE 734 3316 MOV M,C 
QUDF 2B 3337 DCX H 
JUEO 06 FA 3348 MVI B, 250 SET LOOP COUNT 
34E2 43 08 00 3349 FMUL4 te: D,DIGIT+4 . 
SUES 4B 3320 MOV C,E 
G4HES 49 3324 DAD D 
44UE7 EB | 3322 XCHG 
J4UEB 19 3323 DAD D H,LeNEXT HOLDING REGISTER 
A4E9 Ou 3324 INR B 
A4EA F2 JE 45 3325 JP FMUL8. FLN ISHED 
SUED JA 3326 FMUL5 LDAX D GET DIGITS 
JUEE 8F 3327 ADC A TIMES 2 
JUEF 27 3328 DAA 
JUPO 77 3329 MOV M,A PUT IN HOLDING REGISTER 
JuUF4 4B 3330 DCX D 
JUF2 2B . 3331 DCX H 
S4r3 OD 3332 DCR c 
QUF4 C2 ED 44 3333 JNZ FMUL5 
JUF7 Ou 3334 INR B INCRREMENT LOOP COUNT 
4uF8 C2 E2 44 3335 JNZ FMUL4& 
14uFpB 3336 * FORM 10X BY ADDING 8X AND 2x 
V4PB 2337 #* FIRST GET 8x 


UPB 23 , 3338 INX H 


agen TECHNOLOGY BASIC 
COPYRIGHT 8976 ## 


3339 


34UFC 41 42 17 
aurr CE O4 3340 
4504 4a 3344 
4502 7E 3342 
4503 42 3343 
4504 23 33un 
4505 43 3345 
4506 OD - 32U6 
4507 C2 02 45 3347 
450A 23 09 17 3348 
350D 4B 2349 
4A50F 4A 3350 
a5Cr BE 33254 
3510 27 3352 
4531 42 3353 
3542 48 3354 
4532 2B 3355 
@544 05 3356 
4515 C2 OF 15 3357 
1548 06 F9 3358 
451A EB 3359 
-454B C2 £2 44 3360 
354E EB 2364 
451F 223 33462 
4520 36 O04 3363 
4522 3364 
4522 C3 3365 
4522 21 22 437 3366 
4526 35 33467 
4527 CA 54 15 __ 3368 
452A OA 3369 
4526 OB 3370 
$520 C5 3374 
152D 2B 3372 
4A52E EB 3373 
1527 87 3374 
4520 DA 3E 45 3375 
4522 CA 4C 45 3276 
4536 24 FC FF 3377 
3539 19 3378 
152A EB 3379 
$53B C2 2F a5 3380 
1525 uF 3284 
352F B7 3382 
3540 CD OD 44 3383 
#542 4A 3384 
A544 86 3385 
4545 27 3386 
4546 77 3387 
4547 79 3288 
4548 4B 3389 
4549 C3 2F 45 3390 
1EuC 339% 
154C 046 O8 3392 
154E CD AS 46 3393 
4551 C2 22 45 3294 


LXI 
MVI 
MOV 
FMUL6 MOV 
STAX 
INX 
INX 
DCR 
JINZ 
LXI 
DCX 
FMULT LDAX 
ADC 
DAA 
STAX 
DCX 
DCX 
DCR 
JNZ 
MVI 
XCHG 
JMP 
FMUL8 XCHG 
INX 
MVI 


J 


ALS-8 PROGRAM DEVELOPMENT SYSTEM 


PROCESSOR TECHNOLOGY CORP. 
6200 HOLLIS STREET 
EMERYVILLE, CALIF. 94608 

D, HOLDS NEXT HOLDING REGISTER 

C,DIGIT+1 

B,C 

AM 

D 

H 

D 

C 

FMULA 

H,HOLD2+DIGIT GET 2x 

D 

D 

M FORM 40X 

D 

D 

H 

B 

FMULT 

B, 249 

FMULY 

H 

M,DIGIT+1 SET NEXT LOOP COUNT 


® PERFORM ACCUMULATION OF PRODUCT 


FMULY DOP 
LXI 
DCR 
JZ 
LDAX 
DCX 
PUSH 
DCX 
XCHG 

FMU10 ADD 
JC 
JZ 
LXI 
DAD 
XCHG 
JMP 

FMU414 MOV 
ORA 
CALL 
LDAX 
ADD 
DAA 
MOV 
MOV 
DCX 
JMP 


* ROTATE RIGHT 


FMUt2 MVI 
CALL 
JMP 


B GET MULTIPLIER 
H, HOLD8+DIGIT+14 
M DECREMNT LOO? COUNT 
FMUT4 FINISHED 
B 
B 
B 
H 
A CHECK FOR BIT IN CARRY 
FMU14 FOUND A BIT 
FMU42 ZERO |- FINISHED THIS DIGIT 
H, -DIGIT-%4 
D POINT TO NEXT HOLDING REGISTER 
FMU40 
C,A 
A. CLEAR CARRY 
DD ACCUMULATE PRODUCT 
,A 
ao 
FMU170 
B,8 
RIGHT 
FMULY 
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+7 ALS-8 PROGRAM DEVELOPMENT SYSTEM #*# 


PROCESSOR TECHNOLOGY CORP, 


PROCESSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 
#® COPYRIGHT 1976 ## EMERYVILLE, CALIF. 94608 PAGE 
4554 3A 25 17 2395 FMUY4 LDA BU? 
4557 FA FO 3396 ANI OF OH CK*CK IF NORMALIZED 
4559 CA 65 45 3397 JZ FMUS7 
a55C 7A | 3398 MOV A,D 
155D F6 FO 3399 ANI OF OH 
J55F 24 27 37 3400 LXI H, SIGN~4 
4562 C3 76 145 3404 JMP FMU 38 
1565 06 o4 3402 FMU17 MVI B,4 
4567 24 29 17 3403 LXI H, EXP 
256A 35 uO DCR M _ 
356B CA FA 16 3405 JZ UNDER ; 
aS6E CD CE 16 2406 CALL LEFT NORMALIZE 
4574 7A 3407 MOV A,D GET DIGIT SHIFTED OFF 
1572 | 3408 # PERFORM ROUNDING 
4572 OF 3409 RRC 
4573 OF 3440 RRC 
1574 OF 3444 RRC 
4575 OF 3442 RRC 
4576 FR 50 3443 FMU18 CPI SOH 
4578 DA 9A 15 Zuyy nee FMUI6 
4573 2C 3445 INR A 
357C EA OF 3416 ANI OFH: 
J57E OE 03 3447 MVI C,DIGIT 
$580 8E 3418 FMU4S ADE M 
3581 27 2449 DAA 
41582 77 3420 MOV M,A 
4582 2E 00 3424 MVI A,0 
4585 23 ' 3422 DCX H 
1586 OD | - 2423 DCR C 
3587 C2 80 15 3424 JNZ FMU45 
T5BA . 3425 * CHECK FOR ROUNDING OVERFLOW 
458A D2 08 yu 3426 JNC ADS2 NO OVERFLOW 
W58D 23 7 3427 INX 4H 
358E 3246 40 3428 MVI M, 10H 
' 9590 24 29 17 3429 LXI H, EXP 
4593 24 3430 INR M 
$594 C2 Ob 44 3435 JNZ ADS2 
1597 C3 FU 46 3432 “JMP _ OVER 
459A 3433 # ROUNDING NOT NEEDED 
159A E6 OF 2434 FMUI6 ANI OFH 
459C 86 3435 ADD M 
459D 77 3426 MOV M,A 
A59E C3 04 4u 3437 JMP ADS2 
a5Aa ZUZ8 # ; 
3544 3439 # FLOATING POINT DIVISION 
45A4 eo 34ugQ # 
A5A3 C5 3444 FDIV PUSH B ; 
45A2 TE 3442 MOV A,M FETCH DIVISOR FXP 
A5A3 B7 : 3443 ORA A DIVIDE BY 0? 
S5A4 CA FU 36 Zuuy JZ DIVZ 
45A7 4A Zuus LDAX D ; 
35A8 BT 34u6 ORA A DIVIDEND = 0? 
45A9 CA FF 46 B4u7 JZ INSP 
a5AC 96 34uu8 SUB M 
35AD DA B6 45 34ug JC DIVUN 


3530 FA F4 46 3450 JM OVER 


##  ALS=-8 PROGRAM DEVELOPMENT SYSTEM ## 


PROCESSOR. TECHNOLOGY CORP. 
PROCESSOR TECHNOLOGY BASIC 5 6200 HOLLIS STREET 


#® COPYRIGHT 4976 ## EMERYVILLE, CALIF. 94608 PAGE 63 
45B2 C32 B9 45 3454 JMP FDId 
4536 F2 FA 46 3452 DIVUN JP UNDER 
45B9 CH 84 3453 FDIA ADI 429 FORM QUOTIENT EXP 
35BB 22 06 47 3454 STA EXPD © 
45BE &B 3455 XCHG 
a5BF D5 3456 PUSH D 
45CO CD 84 46 3457 CALL LOAD FETCH DIVIDEND 
35C3 D4 - 3458 PQP D 
45C4 EB 3459 XCHG 
45C5 3A 28 47 3460 LDA SIGN 
35C8 2B 3464 DCX H 
35C9 AE 3462 XRA M FORM QUOTIENT SIGN 
JECA 32 05 17 3463 STA SIGND : 
15CD EB 3464 XCHG 
ASCE 1B 3465 DCX D 
aSCF 0141 02 17 3466 LXI B,HOLD4 
§5D2 2E 06 3467 DIVO MVI L,DIGIT+DIGIT 
A5D4 C5 3468 DIV PUSH B 
3505 E5 3469 PUSH H 
1506 SE 00 3470 MVI c,0 QUOTIENT DIGIT = 0 
4a5D8 37 3474 DIV3 STC : SET CARRY 
‘45L9 24 27 47 3u72 LXI H,BUF4+DIGIT-~1 
35DC 06 03 3473 MVI B,DIGIT 
a5DE 3E 99 2474 DIV4 MVI A,99H 
$550 CE 00 3475 ACI 0 
2552 EB 3476 XCHG 
45E2 96 3477 SUB M 
45E4 EB 3478 XCHG 
aSE5 86 3479 ADD M 
JEEA 27 3480 DAA | 
a5E7 77 3484 MOV M,A 
45E8 28 3482 DCX H 
45E9 4B . 3483 DCX D 
I5EA 05 284 DCR B 
JEFB C2 DE 45 3485 JNZ DIV4 
AS5EE 7E 3486 MOV A,M 
45EF 3F 3487 CMC 
45FO DE 00 2488 SBI 0 
1572 77 : 7 3489 MOV M,A 
45°23 4F 3490 ~ RAR 
AEF 24 03 00 3494 LXI H,DIGIT 
ASF7 49 3492 DAD D 
4578 EB 3493 XCHG 
4579 OC 3494 INR C3 INCREMENT QUOTIENT 
ASFA 47 3495 RAL 
a5FB D2 D8 45 3496 JNC DIV3 
a5FE B7 3497 ORA A CLEAR CARRY 
a5FF CD OD 44 3498 CALL ADD RESTORE DIVIDEND 
3602 21 02 00 3499 LXI H,DIGIT 
4695 19 3500 DAD D 
4606 EB 3501 XCHG 
1697 C5 3502 PUSH B 
4608 06 Ou 2503 MVI B,u 
A60A CD CE 16 3504 CALL LEFT SHIFT DIVIDEND 
VAOD Ca 3505 POP. B 
V40E OD 2506 DCR C 


PROCE 
#% 


1602 
4640 
3633 
4632 
4642 
4636 
3648 
164B 
V6iE 
$647 
$622 
4625 
$626 
4627 
162A 
4628 
162C 
4620 
A62E 
4627 
4620 
163) 
4632 
4635 
4636 
1637 
463A 
$630 
163E 
1644 
4642 
4642 
1642 
4643 
364UU 
4646 
1649 
AGUA 
4648 
464C 
46D 
Q6UE 
a6UF 
4652 
4653 
3655 
4658 
365A 
165B 
465C 
465D 
165F 
4662 
4663 
166u 
1667 


SSOR TECHNOLOGY BASIC 
COPYRIGHT 41976 *# 
Ej 3507 
64 3508 
C4 3509 
TD 3530 
C2 25 16 3544 
rE 06 © 3542 
C2 25 16 3513 
241 06 47 2544 
35 2545 
CC FA 16 3576 
C3 pe 45 35.47 
4F 3548 
7C | 3549 
v2 25 16 3520 
OA 3524 
07 3522 
07 3523 
07 3524u 
07 | 3625 
Bu 2526 
02 3527 
03 3528 
C3 36 46 3529 
02 3530 
2D 3531 
C2 pe 45 3532 
241 06 47 ' 2533 
Ca . 3534 
CD 9D 46 3535 
CQ. 3536 
3547 
3538 
dA | 3539 
96 3540 
OF 00 3544 
D2 UD 36 3542 
oc 3543 
EB 3544 
2F 3545 
3C¢ 3546 
47 3547 
aA 3548 
32 29 47 3549 
78 3550 
FE 06 | 3554 
DA 5A 46° 3552 
2E 06 3553 
07 | 3554 
07 3555 
47 3556 
£6 O04 3557 
22 2A aT 3558 
C5 3559 
D5 3560 
Co 84 36 ~ 3564 
3E 28 3562 


## ALS-8 PROGRAM DEVELOPMENT SYSTEM 


PROCESSOR TECHNOLOGY CORP. 
) 6200 HOLLIS STREET 
EMERYVILLE, CALIF. 94608 


POP H 
MOV H,C 
POP B 
MOV A,L 
JNZ DIV5 
CPI DIGIT+DIGIT 
JNZ DIV5 
LXI H, FE XPD 
DCR M 
CZ UNDER 
JMP DIVO 
DIVS5 RAR 
MOV A,H 
JNC DIV6 
LDAX B 
RLC 
RLC 
RLC 
RLC 
ADD H 
‘STAX B STORE QUOTIEN 
INX B 
JMP DIV7T 
DIVE STAX B STORE QUOTIENT 
DIVT DCR L DECREMENT DIGIT COUNT 
JNZ Diva 
LXI H,EXPD 
POP B 
CALL STORO 
RET 
* FETCH AND ALIGN ARGUMENTS FOR 


* ADDITION AND SUBTRACTION 


EX°CK LDAX D 
SUB M DIFFERENCE OF EXPS 
MVI C,0 
JNC EXPC4 
INR C 
XCHG 
CMA 
INR A 
EXPC4 MOV B,A 
LDAX D 
STA | EXP 
MOV A,B 
CPI DIGIT+DIGIT 
JC EXPC2 
MVI A, DIGIT+DIGIT 
EXPC2 RLC 
RLC 
MOV B,A 
ANI y 
STA -RCTRL SET ROUDING CONTROL 
PUSH B 
PUSH D 
CALL LOAD LOAD SMALLER VALUE 
MVI A, 8*DIGIT+15 


%% 
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PROCESSOR TECHNOLOGY BASIC 
## COOYRIGHT 4976 ## 


1669 90 3563 
656A FE 28 3564 
164C CA 7E 46 3565 
J66F £6 FB 3566 
3674 aF 3567 
4672 WF 3568 
A672 aF 3569 
4674 83 3570 
4575 5F 3574 
3676 7A 3572 
4677 CE 00 2573 
4679 57 © 3574 
457A JA 3575 
4673 22 2B 47 3576 
467E CD AB 46 3577 
1684 Da | 3578 
4682 Ca . 3579 
4682 C9 3580 
4684 3584 
4684 44 28 47 3582 
4687 OF Ou 2583 
‘3689 23 3584 
468A 7E 3585 
468B 12 3586 
468C 2B 3587 
4625 4B 2588 
¥68E OD 3589 
J68F C2 BA 46 3590 
3692 AF 3593 
41692 42 ; 3592 
4694 4B 3593 
4695 12 2594 
4696 22 2B 47 3595 
3699 C9 3596 
JAGA 3597 
449A 248 29 17 2£93 
69D 1E OF 2£99 
369? 75 2450 
W6AD 02 24-94 
afA1 CE 2452 
VAS OE 26452 
ae #44 
afAc C2 9F 16 vWF 
Cy cand 2674 
he 2477 
ae 3673 
J6A4 OF C8 3653 
ae ee ee ae 9645 
16RD Te 3644 
aEAE 3A G4 2642 
1655 D2 Ca 36 2f 42 
1457 OF 2A yu 
yeaa 2 QAYE 
JABS B7 2446 
V4ABA TE 2647 
34687 4F 2648 


i it ALS-8 PROGRAM DEVELOPMENT SYSTEM #* 
PROCESSOR .TECHNOLOGY CORP. 


5 6200 HOLLIS STREET 
EMERYVILLE, CALIF. 94608 


B 
CPI 8®DIGIT+46 
JZ EXPC3 
ANI OF 8H © 


GET ROUDNING DIGIT 
STA DIGI SAVE 
EXPC3 CALL RIGHT ALIGN VALUES 
PoP D 
POP B 
RET 
*LOAD ARGUMENT INTO BUFFER 
LOAD LXI D,SIGN 
MVI C.pICIT 44 
DCX H - 
LOADS MOV A,M 
STAX D 
DCX H 
DCX D 
DCR C 
JNZ LOAD4 
XRA A 
STAX D 
DCX D 
STAX D 
STA R 
RET 
*# STORE RESULTS IN MEMORY 
STORE LXI H, EXP 
STORO MVI EF DIGIT+2 
STORY MOV A,M 
STAX 


DIGI ZFRO ROUNDING DIGIT 


A 
RIGH2 MOV A,M 
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PROCE 
it # 


16B8 
4639 
46BA 
F4BB 
46BE 
V6C4 
4604 
 §6C2 
4603 
46C4 
¥6C5 
4606 
46C7 
16C8 
16CB 
A6CE 
46CE 
-36CE 
4650 
4602 
V6D4 
1606 
46D9 
Q6DA 
a60B 
46DC 
Y6DD 
#ODE 
d6DF 
I6EO 
$65) 
46Eu 
46E7 
ACET7 
46E8 
J6E9 
16EA 
1658 
J6EC 
V6ED 
16EE 
1674 
d6Fu 
1674 
V6Fu 
467 
A6FA 
A6FC 
JOFFE 
3700 
$701 
3702 
4702 
1702 
4702 
4702 


SSOR TECHNOLOGY BASIC 


COPYRIGHT 1976 


B56 
A8 


Qt 
re 


16 
46 


16 
46 


417 


46 


C 46 


16 


46 
46 


46 
00 


17 


&% 


3649 
3620 
3624 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
2634 
3632 
3033 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3644 
36h2 
3643 
3644 
3645 
Z4U6 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3057 
3658 
3659 
3660 
3664 
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MOV M,A 
INX H 
DCR C 
JNZ RIGH2 
7 JMP RIGHT 
* SHIFT RIGHT ONE BYTE 
RIGH3 MOV B,A 
XRA A 
RIGHY MOV D,M 
MOV M,A 
MOV A,D 
INX H . 
DCR C 
JNZ RIGHU 
JMP. . RIGHT 
* SHIFT LEFT NUMBER OF DIGITS 
# IN B/4 
LEFT MVI C,DIGIT+4 
LXI H, SIGN-4 
LEF A MOV A,B 
SUI 8 
JNC LEF 3 
DCR B 
RM 
ORA A 
LEF2 MOV A,M 
RAL 
MOV M,A. 
DCX H 
DCR fe 
JNZ LEF2 
JMP LEFT 
* SHIFT LEFT ONE BYTE 
LEF2 MOV B,A 
XRA A 
LEF4 MOV D,M 
MOV M,A 
MOV A.D 
DCX H 
DCR fe 
JNZ LEF4 
JMP LEFT 
* SET FLAGS FOR OVERFLOW, UNDERFLOW, 


3662 * AND DIVIDE BY ZERO 

3663 OVER LXI By EP 
3664 JMP ERROR 
3665 UNDER MVI A,=-14 
3666 STA ERRI 
3667 INSP INX SP 

2668 © INX SP 

3669 RET | 
3670 DIVZ EQU OVER 
3674 * | 

3672 * FLOATING POINT RAM 
a0 13.-° 
3674 HOLDS DS DIGIT+14 
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4706 
aT7OA 
470 
4742 
4716 
471A 
A7VE 
4722 
4723 
A724 
4725 
4728 
4729 
a72A 
472B 
472C 
472C 
472C 
a72C 
fe T2C 

472C 


a72c - 


4790 
3790 
4794 

4792 
1793 
1794 
4795 
1797 
4797 

4797 
 4A7FB 
4633 
1833 
4855 
4837 
1888 
44BC 


a8CO 


$3C4 
48C5 
18CA 
38CA 
48CB 
18CF 
48D0 
a8D4 
4303 
agac 
J91E 
4920 
4922 
1924 
1926 
1927 


&% 


3675 
3676 
3577 
3678 
3679 


3680 


3684 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
2689 
3690 
3691 
3692 
3693 


HOLD2 
HOLD3 
HOLD4Y 
HOLDS5 
HOLD6 
HOLD7T 
HOLD8 


ERRI 


BUF 
SIGN 
EXP 
RCTRL 
RDIGI 
SIGND 
EXPD 
% 

% 


3694 * 


3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
2707 
3708 
3709 
3740 
3744 
3742 
3743 
3744 
3745 
3716 
3747 
3718 
3749 
3720 
3724 
3722 
3723 
3724 
3725 
2726 
2727 
3728 
2729 
3730 


FROM 


CMNDSP 
PHEAD 
RELTYP 
NULLCT 
ARGF 
DIRF 
TXA 
CSTKSZ 
ASTKSZ 
CSTKL 
ASTKL 
RTXA 
STA 
CSTKA 
SINK 
FPSINK 


ETEMP 
PTEM4 
FTEM2 


fF RAND 
IBCNT 
IBLN 
IBUF 
ASTKA 
MATA 
ADDS 
ADDT 
BCADD 
OPST 
OPSTR 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
EQU 
FE QU 


SYSTEM RAM 


a* ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 
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DIGIT +1 
DIGIT+14 
DIGIT +4 
DIGIT +4 
DIGIT +4 
DIGIT +14 
DIGIT +4 

4 

4 ERROR FLAG 


4 

DIGIT WORKING BUFFER 

a SIGN BIT 

1 EXPONENT 

4 ROUNDING CONTROL FLAG 4=MSD . 
4 ROUNDING DIGIT 

HOLD4+DIGIT 

HOLD 4+DIGIT+1 


0 
00 


4 
0 
4 
4 
a 
4 
4 


2 


- 100 
FPSIZ*®LINLEN/2 


CSTKSZ 
ASTKSZ 
2 

2 

2 
FPSIZ=4 
1 


FPSIZ=4 
4 
FPSIZ-1 
4 


FPSIZ=a 
dt . 

PSIZ=1 
1 
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4928 3731 ECNT 
41929 2732 FSIG 
192A 3732 BC 
492° 2734 ABUP 
$937 3735 XSIGN 
$938 3736 EXPO 
3939 3737 FES 
192A 37328 INFES 
1933 3739 MAXL 
493D 3740 INSA 
193F 374q * 

493F 3742 ® 

4193F 3743 % 

4937 | 2744 BRKCHR 
4940 3745 CLN 
4gug 3746 CCP 
4Agh2 3747 CURF 
$943 3748 BOSL 
gguu 3749 BOTL 
$945 3750 * 

AQ&S 3754 VDMDEV 
G45 3752 VDMBASE 
494s 3753 VDMPAGE 
4945 3754 SPRED 
4946 3755 * 

GUE 3756 # 

JOULE 3757 * 

1946 3758 CALST 
394C ‘3759 CALLA 
494E 3760 EOFA 
1950 | 37613 BOFA 
4952 3762 MEMTOP 
1954 . 3763 * 


— 4954 3764 


Os 


® 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 


GLOBAL 


DS 
DS 
DS 
DS 
DS 
DS 


EQU 
FQU 
FQU 
DS 


DS 
DS 
DS 
DS 
DS 


id ALS-8 PROGRAM DEVELOPMENT SYSTEM ## 


PROCESSOR TECHNOLOGY CORP. 
6200 HOLLIS STREET 


EMERYVILLE, CALIF. 94608 PAGE 
4 
4 
DIGIT+2 
DIGIT#2+2 
4 
4 
4 
4 
2 
2 
3 BREAK CHR STORAGE 
q CURRENT SCREEN LINE NUMBER 
4 CURRENT CURSOR POSITION 
1 CURSOR DISPLAY SWITCH 
4 BEGINNING OF SCREEN LINE 
4 EOTTOM OF SCREEN LINE 
OC &8H VDM PORT ADDRESS FOR SCROLL CONTROL 
OCCGOH VDM SCREEN MEMORY ADDRESS 
VOMBASE/256 
4 


SPECIAL INTERFACE GLOBAL 


END OF FILE ADDRESS 
START OF FILE ADDRESS 
STORAGE FOR LAST ASSIGNED MEMORY LOCATION 


MM Ph ov 


8 


